Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1616to1620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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?

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige