Aktivesheet.printpreview
17.04.2002 11:44:25
Cypher
Rufe per Userform diese Druckoberfläche auf, und ein Tabellenblatt wird eingelesen.Jetzt kann ich Layout usw. verändern und drucken oder schliessen.Klappt auch alles.
Problem : Jedes Mal, wenn ich den Druck ausführe bzw. die Druckoberfläche schließe, bleibt die Oberfläche im Hintergrund aber das eingelesene Tabellenblatt verschwindet.Er soll aber das Tabellenblatt Hgrund aufrufen und die Userform wieder einblenden.
Es wird aber nur die Userform eingeblendet aber das Tabellenblatt Hgrund nicht.Könnt Ihr mir helfen?
Private Sub CmdDrucken_Click()
Worksheets("Tabelle1").Select
Unload Me 'beendet Userform
ActiveSheet.PrintPreview 'ruft Druckoberfläche auf
Worksheets("hgrund").Select 'wenn Oberfläche beendet
FrmDruckenE.Show 'ruft userform wieder auf
End Sub
Danke für Eure Mühe
Gruss Cypher