AW: Denn eine PrintScreen...
19.02.2008 22:22:54
mario
Ja sorry, ich dachte das ist ein neues Problem weil die Original Datei ja funktioniert.
"...Dein Bild ist nicht sehr aussagefähig, welcher Inhalt wird den nicht gedruckt?"
Die graue Userform ist das Original, die weiße ist die, die mit dem Macro eingefügt wird und dann gedruckt werden soll!
Mich verwundert nur das ja die Original-Version funktioniert hat!
Was habe ich geändert:
Userform1 (Original)
Userform2 (1. Veränderung) wird auch gedruckt!
danach habe ich eine 2. Userform erstellt den "Drucken" Button von der 1. auf die 2. kopiert.
Public Sub prcPrintForm()
UserForm2.Hide 'Userform mit drucken Button verschwindet
UserForm1.Show 'diese Userform hat eine Legende, die mit auf dem Blatt gedruckt wird
Dim intAltScan As Integer
intAltScan = MapVirtualKey(vbKeyMenu, 0&)
Call keybd_event(vbKeyMenu, intAltScan, 0&, 0&)
Call keybd_event(vbKeySnapshot, 0&, 0&, 0&)
DoEvents
Call keybd_event(vbKeyMenu, intAltScan, KEYEVENTF_KEYUP, 0&)
With Tabelle1
.Paste
.Shapes(1).Top = .Rows(18).Top
.Shapes(1).Left = .Columns(1).Left
'.PrintOut
'.Shapes(1).Delete
End With
UserForm1.Hide 'Legende aus
UserForm2.Show 'drucken Button Usrf. an
End Sub
...auf meinem Notebook zu Hause ist der gleiche Effekt (Userform leer)
