Druck-Makro für Excel

Ich habe mit Excel (2000) ein Formular aus 3 Blättern erstellt, von denen das 1. Blatt ausschließlich für die Eingabe der Daten, die anderen beiden Blätter die beiden Ausgabe-Seiten sind.
Mit einem Makro sollen von den beiden Ausgabe-Seiten die Zellen des Formulars jeweils auf einen DIN A4-Bogen so ausgedruckt werden, dass der Formularbereich auf je eine Seite eingepasst wird.

Bisher habe ich dieses Problem immer so gelöst:

Sub Drucken()
'
' Drucken Makro
' Makro am 25.09.2007 von wurstel aufgezeichnet
'

'Sheets("Blatt1").Select
Range("A1:J46").Select
PaperSize = xlPaperA4
FitToPagesWide = 1
FitToPagesTall = 1
Selection.PrintOut Copies:=1, Collate:=True

End Sub

Bei nur einem Blatt funktioniert das auch problemlos. Nicht aber in diesem Fall. Die Formulare werden abgeschnitten und auf 4 Druckseiten verteilt.
Hat jemand eine bessere Lösung?

Viele Grüße
Wurstel

Hallo Wurstel.

versuchs mal damit:

Sheets("Blatt2").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1

Sheets("Blatt3").Select
ActiveWindow.SelectedSheets.PrintOut copies:=1

und natürlich sollte der Drucker eingestellt werden.

LG
kerni

Hallo Kerni,
vielen Dank für deine Antwort. So ungefähr habe ich das Problem inzwischen gelöst (es hatte sich ja lange niemand gemeldet!). Mir war vorher nicht klar, dass Excel den festgelegten Druckbereich auch in der Datei abspeichert, so dass er im Makro gar nicht auftauchen muss. Somit ist das Ganze tatsächlich sehr einfach.
Trotzdem vielen Dank für deine Mühe!
LG Wurstel