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



 Ranking-Hits zurück Sitemap
Designed by www.wbrnet.info