AW: Makro zum drucken
17.05.2007 22:43:29
Kai
Hallo Hilmar,
nun, die beschriebenen Deobachtungen sind nicht ganz falsch. Drei Dinge:
1. Ist der Bereich, der in der Seitenansicht erschient, der, den du Drucken möchtest? Wenn ja, macht das Makro zumindest, was ich angedacht habe.
2. Wenn ich es recht verstehe, willst du doch den beschriebenen Bereich Drucken. Um das per Makro zumachen, habe ich mich entschieden, das PrintPreview zu öffnen. Mit dem Befehl .PrintOut statt .PrintPreview kann man es auch direkt drucken. Aber das würde ich nicht machen, ich würde vorher immer noch mal einen Blick drauf werfen und dann den Auftrag selbst an den Drucker senden. Zum einen weiß man, was dann gedruckt wird und zum anderen kann man den Drucker noch wählen.
3. Zum festgelegten Druckbereich: Wo liegt der? Möchtest du noch etwas anderes Drucken? Oder einfach einen schon vorhandenen Druckbereich nicht verlieren?
Das folgende Makro speichert deinen Druckbereich, und legt ihn dir wieder wie vorher fest, wenn das PrintPreview geschlossen wird.
Sub DruckHilmar()
Dim DeinDruckbereich As String
DeinDruckbereich = ActiveSheet.PageSetup.PrintArea
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(Range("C65536").End(xlUp).Row, 13) _
)
With ActiveSheet.PageSetup
.FitToPagesWide = 1
End With
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.PageSetup.PrintArea = DeinDruckbereich
End Sub
Gruß,
Kai