Formular verschwindet nach Druckbefehl

Hallo mal wieder,
ich starte ein "Hauptformular" (UsrEWB), mit Application.Visible = False wird Excel ausgeblendet.
Von diesem Formular rufe ich ein weiteres Formular auf (UsrDrucken):


Private Sub cmdDruckmenue_Click()
Unload UsrEWB
UsrDrucken.Show
End Sub

Hier soll ein Arbeitsblatt ausgedruckt werden:


Private Sub cmdIFRS_Drucken_Click()
Sheets("WB Übersicht IFRS").Select
ActiveWindow.SelectedSheets.PrintOut
End Sub

Es wird gedruckt (warum auch nicht), jedoch verschwindet das Formular (UsrDrucken), und ein anderes Programm (Explorer, Lotus Notes - womit man gerade noch so arbeitet) wird angezeigt (wie mit ALT + Tab). Mit ALT + Tab kann ich das Formular UsrDrucken wieder anzeigen lassen. Das ist jedoch benutzerunfreundlich und sieht auch noch unsauber aus.
Ich möchte jedoch, dass das Formular UsrDrucken sichtbar bleibt.
Mit
Unload UsrDrucken
Load UsrDrucken
UsrDrucken.Show
kriege ich das zwar hin, aber mal ehrlich: Das ist doch bescheuert.
Was kann ich tun?
Und warum wechseln die Programme im Hintergrund?
Gruß
Marek

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Renee,
ich habe jetzt ein wenig rumgespielt und festgestellt, dass bei jedem Drucken die Hintergrundanwendungen nach Reihenfolge des Startens rückwärts angezeigt werden (von VB zu Explorer zu Notes). Das erste gestartete Programm (in diesem Fall Notes) bleibt dann als Hintergrund.
Ich vermute, dass es mit der Anzeige des Druckmenüs in Excel zu tun hat, ist ja im Prinzip auch ein Fensterwechsel. Deshalb funktioniert es mit Unload, Load und Show.
Mit dem Repaint sieht es so aus:
Sheets("WB Übersicht IFRS").PrintOut
UsrDrucken.Repaint
Gestartet wird das Druckformular vom Hauptformular so:
Unload UsrEWB
Load UsrDrucken
UsrDrucken.Show
Zurück vom Druckformular zum Hauptformular geht es so:
Unload UsrDrucken
Load UsrEWB
UsrEWB.Show
Eventuell gibt es eine Möglichkeit, dass Druckmenü von Excel zu unterdrücken, ähnlich wie Application.Dialogs(xlDialogPrint).Show. Bis jetzt habe ich noch keine Möglichkeit gefunden.
Merkwürdig ist auch, dass es mit Repaint nur direkt aus dem Sub funktioniert und solange man das Formular nicht wechselt.
Siehst du (oder auch jemand anders) eine Möglichkeit, das Druckmenü von Excel zu unterdrücken? Mehr Möglichkeiten zum Probieren fallen mir momentan nicht ein.
Gruß
Marek

Beliebteste Forumthreads (12 Monate)

Formular verschwindet nach Druckbefehl

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread