kann mir einer vielleicht beim Printout helfen?
Ich möchte von Seite 2 ab bis zur letzten Seite, die ich vorher auszähle
drucken. Leider druckt er aber hier nur die Seite 2 ;-(
---------
From:=2, To:=Seiten
----------
(s.U.)
Ich komm da nicht weiter....
Danke
Christian
Sub printout()
Dim Aus As Range
Dim D1 As String
Dim D2 As String
Dim Seiten As Variant
Set Aus = Range("B5:I96")
Seiten = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)
D1 = "S3_Excel auf FPR7:"
D2 = "S4_Excel auf FPR7:"
Aus.PrintOut ActivePrinter:=D1, From:=1, To:=1, Copies:=1, Collate:=True
Aus.PrintOut ActivePrinter:=D2, From:=2, To:=Seiten, Copies:=1, Collate:=True
End Sub