UsedRange als Druckbereich festlegen
31.05.2005 09:39:44
Dieter
ich möchte in einer Exceldatei den benutzten Bereich (UsedRange) als Druckbereich für alle Arbeitsblätter einer Datei festlegen.
Dies funktiert in der Regel mit folgendem Code (für beide Subs):
------------------------------------------------------------------------
Sub StandardDruckbereicheEinrichten()
Dim i As Integer
Dim strNameWorkbook As String
strNameWorkbook = ActiveWorkbook.Name
For i = 1 To Workbooks(strNameWorkbook).Sheets.Count
Workbooks(strNameWorkbook).Sheets(i).PageSetup.PrintArea = _
Workbooks(strNameWorkbook).Sheets(i).UsedRange
Next
End Sub
------------------------------------------------------------------------
Sub StandardDruckbereicheEinrichten2()
Dim i As Integer
Dim strNameWorkbook As String
strNameWorkbook = ActiveWorkbook.Name
For i = 1 To Workbooks(strNameWorkbook).Sheets.Count
Workbooks(strNameWorkbook).Sheets(i).Select
ActiveSheet.UsedRange.Select
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange
Next
End Sub
------------------------------------------------------------------------
Es gibt aber Arbeitsblätter, wo dies nicht funktioniert.
Wer hat hier eine Idee ?
Gruß
Dieter Steffen