Aktivesheet.printpreview

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm InputBox MsgBox


Excel-Version: 2000
nach unten

Betrifft: Aktivesheet.printpreview
von: Cypher
Geschrieben am: 17.04.2002 - 11:44:25

Hi Leute!!!
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

nach oben   nach unten

Re: Aktivesheet.printpreview
von: Ergänzung!!!
Geschrieben am: 17.04.2002 - 12:00:22

So funktioniert es.Aber wenn ich vorherTeilweise drucken ausführe bleibt die Oberfläche im Hintergrund.Private Sub Cmdteildruck_Click() Dim SDatum As String Dim spalte As Variant Application.ScreenUpdating = False SDatum = InputBox("gesuchtes Datum:", , Date) If IsDate(SDatum) = False Then MsgBox ("Falsche Eingabe!") Else Worksheets("Tabelle1").Select Set fc = Worksheets("Tabelle1").Columns("a").Find(what:=SDatum) If fc Is Nothing Then MsgBox ("Dieses Datum existiert nicht!") Worksheets("hgrund").Activate Else spalte = fc.Row Rows("2:" & spalte - 1).Select Selection.EntireRow.Hidden = True Unload Me ActiveSheet.PrintPreview Worksheets("Tabelle1").Select Selection.EntireRow.Hidden = False Range("a1").Select Worksheets("hgrund").Select FrmDruckE.Show End If End If Application.ScreenUpdating = True End Sub Also liegt der Fehler irgentwo in der Sub, oder? Gruss Cypher

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Blattschutz + Gruppierung"