Druckvorschau
04.11.2015 13:57:08
Dirk
ich hoffe, Ihr könnt mir weiterhelfen. Hier mein Problem :
über einen CommandButton soll eine Druckvorschau gestartet werden, die abhängig vom Druckbereich ist. Beim Drucken an sich funktioniert das wunderbar, bei der Druckvorschau allerdings werden immer alle Seiten angezeigt.
Hier der Code der beiden Module :
Sub Makro1()
If Sheets("Tabelle1").Range("A20") "" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$50"
End If
If Sheets("Tabelle1").Range("A70") "" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$100"
End If
If Sheets("Tabelle1").Range("A120") "" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$150"
End If
Sheets("Tabelle1").PrintOut
End Sub
Sub Makro2()
If Sheets("Tabelle1").Range("A20") "" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$50"
Sheets("Tabelle1").PrintPreview
End If
If Sheets("Tabelle1").Range("A70") "" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$100"
Sheets("Tabelle1").PrintPreview
End If
If Sheets("Tabelle1").Range("A120") "" Then
ActiveSheet.PageSetup.PrintArea = "$A$1:$G$150"
Sheets("Tabelle1").PrintPreview
End If
Sheets("Tabelle1").PrintPreview
End Sub
Vielen Dank im Voraus
Gruß Dirk
Anzeige