Sub A4_A5() 
  ' 
  ' A4_A5 Makro 
  ' 
  ' 

  strPages = InputBox("Welche Seiten sollen gedruckt werden?", "Seitenauswahl", _
    "1-2");
 
  If (strPages <> "") Then

    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ 
    wdPrintDocumentContent, Copies:=1, Pages:=strPages, _
    PageType:=wdPrintAllPages, _ 
    ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ 
    False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=8391, _ 
    PrintZoomPaperHeight:=11907 

  End If

End Sub