Drucken mit Word

Diverse VBA Makros: Drucken mit Word. PrintOut, PrintReverse
Drucken aktuelle Seite Sub DruckenAktuelleSeite()
On Error Resume Next
Application.PrintOut filename:="", _
Range:=wdPrintCurrentPage, _
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, Collate:=True, _
Background:=True, PrintToFile:=False
  End Sub
Drucken des markierten Textes Sub DruckenMarkierung()
On Error Resume Next
Options.PrintReverse = True
Application.PrintOut filename:="", Range:=wdPrintSelection, _
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, Collate:=True, _
Background:=True, PrintToFile:=False
  End Sub
Drucken 2 Seiten pro Blatt Sub Drucken_2_Seiten_pro_Blatt()
On Error Resume Next
Options.PrintReverse = False
Application.PrintOut filename:="", _
Range:=wdPrintAllDocument, _
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, Collate:=True, _
Background:=True, PrintToFile:=False, _
PrintZoomColumn:=2, PrintZoomRow:=1, _
PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
  End Sub
Drucken 4 Seiten pro Blatt Sub Drucken_4_Seiten_pro_Blatt()
On Error Resume Next
With Options
.UpdateFieldsAtPrint = True
.UpdateLinksAtPrint = False
.DefaultTray = "Druckereinstellungen verwenden"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = False
End With
With ActiveDocument
.PrintPostScriptOverText = False
.PrintFormsData = False
End With
Application.PrintOut filename:="", _
Range:=wdPrintAllDocument, _
Item:=wdPrintDocumentContent, Copies:=1, Pages:="", _
PageType:=wdPrintAllPages, Collate:=True, _
Background:=True, PrintToFile:=False, _
PrintZoomColumn:=2, PrintZoomRow:=2, _
PrintZoomPaperWidth:=11907, _
PrintZoomPaperHeight:=16839
  End Sub

Mehr Tipps: Word - Automatisch Makros ausführen

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt