|
Hallo Forum,
ich habe ein Excel VBA Problem mit dem ausdrucken auf verschiedenen Druckern. Nach Installation des neuen Rechners geht diese Funktion nicht mehr (habe jetzt Windows10). Zuvor hatte ich diesen Code in Verwendung (s.u). Es wurde auf Drucker P3911 ein A4 Ausdruck erzeugt und zudem auf einem Labeldrucker P3768 ein Label gedruckt. In der Vergangenheit hatten wir auch schon mal Probleme, diese konnte wir aber durch Änderung der Adresse "Ne01 usw." wieder beheben.
Hat jemand eine Ahnung was der Fehler sein könnte?
Gruß Matthias
' Laufkarte_drucken
Sheets("Laufkarte").Select
Application.ActivePrinter = "\\sogprintp01\p3911 auf Ne06:"
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\P3768 auf Ne03:"
Selection.PrintOut Copies:=1, ActivePrinter:="\\sogprintp01\P3768 auf Ne02:", 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\P3911 auf Ne06:"
' Information aus Statusleiste entfernen
Application.StatusBar = ""
' Prozedur Ende
End Sub
|