ich möchte einen ausgewählten Bereich ausdrucken,
und im Code soll auch schon gerade der Drucker ausgewählt werden,
also es wird nicht der Standard Drucker verwendet..
Wie mache ich das?
Sub A4Drucken()
Dim strOldPrinter As String
strOldPrinter = Application.ActivePrinter
With ActiveSheet
With .PageSetup
.PrintArea = Selection.Address
.Zoom = False
.Orientation = xlPortrait
.PaperSize = xlPaperA4
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
.PrintOut Copies:=1, ActivePrinter:="DruckerName"
End With
Application.ActivePrinter = strOldPrinter
End Sub
Bei "ActivePrinter" den Namen des Druckers angeben wie er in der Systemsteuerung steht. Soll kein Drucker "gewählt" werden kann man diesen Parameter auch weglassen.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen