Ich habe folgende Drucker angezeigt bekommen:
installierte Drucker |
PDF24 PDF |
PDF24 Fax |
Microsoft XPS Document Writer |
Microsoft Print to PDF |
An OneNote 2013 senden |
\\sogprintp01.local.hv.group\P3911 |
\\sogprintp01.local.hv.group\P3768 |
\\sogprintp01.local.hv.group\P3878 |
\\sogprintp01.local.hv.group\P3784 |
\\sogprintp01.local.hv.group\P3729 |
Habe die Drucker in mein Makro übernommen. Leider ohne Erfolg..
Private Sub Laufkarte_Drucken()
' Bildschirm aktualisierung ausschalten
Application.ScreenUpdating = False
' Laufkarte_drucken
Sheets("Laufkarte").Select
Application.ActivePrinter = "\\sogprintp01.local.hv.group\P3911"
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$31"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
'Behälteranhänger drucken
Range("N40:S43").Select
Application.CutCopyMode = False
Application.ActivePrinter = "\\sogprintp01.local.hv.group\P3768"
Selection.PrintOut Copies:=1, ActivePrinter:="\\sogprintp01.local.hv.group\P3768", Collate:=True
ActiveWindow.LargeScroll Down:=1
Rows("35:35").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-34
' Information aus Statusleiste entfernen
Application.StatusBar = ""
' Bildschirm aktualisierung einschalten
Application.ScreenUpdating = True
' UserForm schließen
Unload Me
' Tabelle Daten-Bank ausblenden
Sheets("Laufkarte").Visible = False
Sheets("Auftragsliste").Select
Application.ActivePrinter = "\\sogprintp01.local.hv.group\P3911"
' Information aus Statusleiste entfernen
Application.StatusBar = ""
' Prozedur Ende
End Sub
|