Hozzászólások
-
SzerzőBejegyzés
-
Szia,
Na most ez van:
Private Sub Nyomtatás_Click()
If ComboBox1 = „Január” Then
Sheets(„Cseppentés01”).ChartObjects(1).Activate
ExecuteExcel4Macro „PRINT(1,,,1,,,,,,,,2,,,FALSE,,TRUE)”
End If
If ComboBox1 = „Február” Then
Sheets(„Cseppentés02”).ChartObjects(1).Activate
ExecuteExcel4Macro „PRINT(1,,,1,,,,,,,,2,,,TRUE,,TRUE)”
End If
End SubMár csak azt kellene neki mondanom, hogy fekvőbe nyomtasson. Esetleg lehet úgy, is hogy kérdés nélkül ezt tegye? Ha nem max felhozná, és én ráklikkelnék, hogy fekvő legyen. Ebben is tudnál segíteni? Lassan már jövök 1 kólával Neked 😀
Köszönöm!
Kedves Verax!
Nagyon szépen köszönöm a segítséged, ismét 🙂
Mint talán már egyértelművé válik számodra is, nem igazán tudok kódokat írni, inkább csak fórumokon kutakodva próbálkozok a progim megírásával, s amivel végképp nem tudok mit kezdeni, azt ide kiírom, ezért is külön köszönöm a kódokhoz tartozó magyarázatot is, így sokkal több tanulságot kaphatok, mintha csak egy működő kódot írtál volna le.Szia,
Ha más megoldást nem találok, ezzel fogok élni, mert így konkrétan a chartra hivatkozok és azt nyomtatja ez szuper.
A gond az, hogy több gombom van egy felületen cc 10 cmdbutton, amik ugyan arra az egy userformon lévő image1-területre teszik a képet.
Ezért úgy lenne a jó, ha egy nyomtatási gomb lenne és az aktuálisan kijelölt chartot nyomtatná.Így maximum minden kimutat gomb mellé rakok egy print gombot is, ami az ahhoz tartozó kimutatásra mutat.
Ezért köszönöm a tanácsot, ezzel tudok élni egy darabig, később pedig úgyis monitoron lesz csak nézve és nem kell nyomtatni semmit 🙂
Köszönöm!
Hálásan Köszönöm!!
Tökéletesen megoldottad a problémám 🙂
-
SzerzőBejegyzés
