Drucken Tabelle
10.06.2019 15:01:42
Günther
Frage:
Warum druckt er mir 2 kopien aus, wenn ich in der Inputbox eine 1 angebe.
Sub Drucken_Tabelle()
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$AX$21"
' .CenterHorizontally = True
' .CenterVertically = True
.Orientation = xlLandscape ' Querformat
.PaperSize = xlPaperA4
.BlackAndWhite = True
.Zoom = 75
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
IntAnz = InputBox("Wieviele Kopien sollen gedruckt werden?")
ActiveWindow.SelectedSheets.PrintOut Copies:=IntAnz, Collate:=True
ActiveSheet.PrintOut
Range("B2").Select
End Sub
Excel 2016