Druck nur einer Seite
chris58
Ich habe diesen Code von Hajo gefunden, der mir einiges an Arbeit abnimmt. Jedoch druckt der Code immer 2 Seiten aus. Ich habe jetzt schon alles mögliche umgestellt und dabei ca. 60 Seiten ausgedruckt, jedoch werden immer noch 2 Seiten ausgedruckt. Welche Veränderungen muß ich vornehmen um nur eine Seite (also wo in Spalte B = 0 steht) rauszubekommen.
Danke
chris
Sub DruckBereichFestlegen()
Dim iRow As Integer
iRow = 2
Do Until Cells(iRow + 2, 2).Value = 0
iRow = iRow + 2
Loop
Worksheets("Saldenliste").PageSetup.PrintArea = _
ActiveSheet.Name & "!" & _
Range(Cells(2, 1), Cells(iRow, 11)).Address
ActiveSheet.PrintPreview
End Sub