Probleme mit Druckmakro
25.04.2005 18:14:03
Steffen
Ich habe teils selbstständig teils mit der Hilfe von Bryan + Peter (thx nochmal) ein Druckmakro geschrieben.
Wie bekomme ich es hin, dass mein Sheet nur von Zelle A1 bis AA98 mit den Druckeinstellungen aus "Seite einrichten" ausgedruckt wird? Ausserdem druckt dieses Makro immer 2x und ich verstehe nicht wieso?
Wäre Euch super dankbar, wenn Ihr mir helfen könntet.
Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.PrintArea = "$A$01:$AA$98"
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintOut ActivePrinter:="\\SFC-CHARLY\HP Laserjet 5100 PS"
ActiveSheet.PrintOut from:=1, To:=1
End Sub