Druckvorgang
25.05.2022 13:45:58
Ramadani
Ich habe mehrere Userformen die miteinander agieren. Es funktioniert eigentlich alles so wie ich es gerne hätte bzw. brauche.
Es gibt aber einen Punkt der nicht so wirklich will. Und zwar geht es ums drucken. Durch klicken auf "Daten erfassen" wird Userform 1geöffnet, hier steht ein Text mit Informationen und durch klicken auf "Weiter" gelangt man zur Userform2, usw.
In der letzten Userform werden dann durch klicken auf den Button "Daten erfassen", sämtliche Daten in die passenden Zellen eingetragen, das Fenster "Speichern unter" öffnet sich (zum speichern der Datei) und das Dokument wird in doppelter Ausführung gedruckt. Und genau hier habe ich den haken, denn wenn man auf den Button "Daten erfassen" in der letzten Userform klickt, werden die Dokumente zwar gedruckt, aber ohne Daten.
Der bisherige Code lautet:
Private Sub CommandButton12_Click()
'Seite schliessen
UserForm10.Hide
'vorherige Seite anzeigen
UserForm9.Show
End Sub
Private Sub CommandButton13_Click()
'"Speichern unter" öffnen
Application.Dialogs(xlDialogSaveAs).Show
Unload Me
End Sub
Private Sub CommandButton14_Click()
UserForm2.TextBox1 = ""
UserForm3.ComboBox1 = ""
UserForm4.TextBox2 = ""
UserForm5.ComboBox2 = ""
UserForm6.ComboBox3 = ""
UserForm7.TextBox3 = ""
UserForm8.ComboBox4 = ""
UserForm9.TextBox4 = ""
Sheets("Wellenaustausch").Range("A1:E16").PrintOut Copies:=2
Unload Me
End Sub
Hat jemand evtl. eine Idee wie ich das Problem mit dem drucken gelöst bekomme?
Gruss
Hixi