Druckvorschau

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Druckvorschau
von: Dirk
Geschrieben am: 04.11.2015 13:57:08

Hallo in's Forum,
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

Bild

Betrifft: AW: Druckvorschau
von: Rudi Maintaire
Geschrieben am: 04.11.2015 14:06:13
Hallo,

Sub Makro2()
    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").PrintPreview
End Sub
Gruß
Rudi

Bild

Betrifft: AW: Druckvorschau
von: Dirk
Geschrieben am: 04.11.2015 14:10:03
Hi Rudi,
vielen Dank für Deine schnelle Antwort. so hat mein erster Code ausgesehen.
Leider derselbe Fehler : alle Seiten werden in der Vorschau angezeigt.
Gruß Dirk

Bild

Betrifft: bei mir geht's. owT
von: Rudi Maintaire
Geschrieben am: 04.11.2015 14:15:50


Bild

Betrifft: AW: Druckvorschau
von: Dirk
Geschrieben am: 04.11.2015 14:44:10
Hallo Rudi,
sorry, Fehler von mir, funktioniert wunderbar.
Vielen Dank noch mal.
Gruß Dirk

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Druckvorschau"