Hallo , habe schon viel gelernt durch euch , ist eine Super Sache mit der Plattform, ewtl könntet Ihr mir weiterhelfen, bitte. Ich habe eine Userform welche einen Drucker (tinte) ansteuert 2x. (Automatisch) Danach soll er wechseln und per freepdf Drucker ein PDF generieren, aber er generiert nicht die Userform sondern die Tabelle? wenn der PDFdrucker auf standart gesetzt ist funktioniert es, wo liegt der fehler?
Hallo,
das ist normal. Ändere den Standarddrucker auch den PDF-Printer. Das geht auch per VBA.
Gruß
Nepumuk
AW: Userform wird nicht gedruckt sondern Tabelle
12.04.2019 13:58:30
Al
Hi Nepumuk danke für die schnelle Antwort :-)
Dim sngheight As Single, sngwidth As Single
sngheight = Me.Height
sngwidth = Me.Width
Zoom = 82
Me.Printform
sngheight = Me.Height
sngwidth = Me.Width
Zoom = 100
'ThisWorkbook.Save
Unload Me
Der Code dieser steuert ja den Standartdrucker an , (Standart PDF)
wie steuere ich den HP drucker an?
zur Vorgeschichte: :-)
Plan war das über einen Button die Userform angesteuert wird, diese druckt 1x an den PDF und 1x an HP... . sich dann wieder verschliest.
komm irgend wie nicht dahinter, mit der Ansteuerung.
Anzeige
AW: Userform wird nicht gedruckt sondern Tabelle
12.04.2019 14:07:07
Nepumuk
Hallo Al,
hilft dir das weiter?
PublicSub Printer_SetDefault_HP() Dim objWMI As Object, objItem AsObject Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _ ExecQuery("SELECT * FROM Win32_Printer WHERE Name LIKE '%HP%'") For Each objItem In objWMI Call objItem.SetDefaultPrinter Next Set objWMI = Nothing EndSub
PublicSub Printer_SetDefault_PDF() Dim objWMI As Object, objItem AsObject Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). _ ExecQuery("SELECT * FROM Win32_Printer WHERE Name LIKE '%PDF%'") For Each objItem In objWMI Call objItem.SetDefaultPrinter Next Set objWMI = Nothing EndSub
Wenn du mehrere HP- oder PDF-Drucker hast musst du das im LIKE-Statement genauer spezifizieren um den richtigen zu erwischen.
Gruß
Nepumuk
Anzeige
AW: Userform wird nicht gedruckt sondern Tabelle
12.04.2019 14:16:31
Al
werde es heute abend testen, sag dir dann bescheid
Danke :-)
AW: Userform wird nicht gedruckt sondern Tabelle
18.04.2019 16:25:38
Al
Hallo Nepumuk sorry für die späte Nachricht, hat alles bestens funktioniert danke dir :-)
Gruss Al