Kezdőlap › Fórumok › Excel programozás › [Resolved] VBA userform felületről indított nyomtatás
- This topic has 4 hozzászólás, 2 résztvevő, and was last updated 9 months, 3 weeks telt el by Gojo-Mann.
-
SzerzőBejegyzés
-
2024-02-21-12:16 #10483
Sziasztok,
Az alábbi témában szeretném kérni s segítségeteket.
Próbálom röviden leírni:
Van egy excel, megnyitáskor az excelt a háttérben nyitja userformot jelenít meg, Ez workbook-ba van bekódolva.
Userformon van egy image terület, ahová a megfelelő gomb lenyomásával csinál egy ideiglenes képet, amit megjelenít az image területen.Private Sub OptionButton7_Click() ‘heti összegzett kimutatás
Set CurrentChart = Sheets(„WIP_heti”).ChartObjects(1).Chart
CHname = ThisWorkbook.Path & „\temp.gif”
CurrentChart.Export Filename:=CHname, FilterName:=”GIF”
Image1.Picture = LoadPicture(CHname)
Kill CHname
End SubNa erre az userformre szeretnék egy command button-t, ami kinyomtatja nekem a képet, olyat írtam, hogy az egész userform felületet nyomtassa de olyat nemtudok, hogy csak az image területet nyomtassa. Úgy lenne a sajtossonkás, ha nyomtatás előtt megkérdezné, hogy A3-A4 álló vagy fekvő.
Segítségeteket előre is köszönöm!
2024-02-27-14:36 #10503Szia Gojo-Mann!
Két sorral elintézném a nyomtatást.
Sheets("WIP_heti").ChartObjects(1).Activate ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,TRUE)"
Az elsővel kijelölném a diagramot, a másodikkal kérdés nélkül küldeném nyomtatásra.
üdvözlettel
verax2024-02-27-16:16 #10504Szia,
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!
2024-02-27-17:51 #10505Szia Gojo-Mann!
Bármelyik parancsgomb írja át Image1 vezérlő Picture tulajdonságát, egyúttal tárold el a kép forrására való hivatkozást! Nyomtatás előtt így mindig tudni fogod, hogy melyik diagramot kell nyomtatni.
üdv’
verax2024-03-04-11:05 #10523Szia,
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!
-
SzerzőBejegyzés
- Be kell jelentkezni a hozzászóláshoz.