in meiner Testdatei "Userfom mit Tabellenblatt drucken" habe ich das Problem das der Inhalt der Userform nicht gedruckt wird (siehe Anhang)
Wie kann ich das Problem beheben?
Danke Mario
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)
Public Sub prcPrintForm()
UserForm1.Hide
UserForm2.Show
Application.Wait (Now + TimeValue("0:00:02")) 'Pause
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(32).Top
.Shapes(1).Left = .Columns(1).Left
.PrintOut
.Shapes(1).Delete
End With
UserForm2.Hide
UserForm1.Show
End Sub