Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1616to1620
1616to1620
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken über VBA

Forumthread: Drucken über VBA

Drucken über VBA
03.04.2018 14:38:07
Peter98
Hallo
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?
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken über VBA
03.04.2018 15:03:37
Sandra
Hallo Peter98,
ungetestet
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.
LG Sandra
Anzeige
AW: Drucken über VBA
03.04.2018 15:08:59
Peter98
Hallo Sandra,
klappt perfekt,
danke für deine schnelle Hilfe
LG
Gerne...(owT)
03.04.2018 15:17:43
Sandra
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige