Ich habe eine Bitte an euch ich habe hier ein Makro aus der Recherche und nun möchte ich es ein wenig umformen und zwar so, das das Blatt nicht sofort ausgedruckt wird sondern das anstatt des Drucker MSG Box eine userform geöffnet wird
ist das möglich ?
Sub AutoForm1_BeiKlick()
Dim Qe
ActiveWindow.SelectedSheets.PrintPreview
Qe = MsgBox("Druck starten", vbQuestion + vbYesNo, "Ausdruck")
If Qe = 7 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=ExecuteExcel4Macro("Get.Document(50)") - 1, Copies:=1
With ActiveSheet.PageSetup
.PrintArea = ""
.LeftHeader = ""
.LeftFooter = "&8&U " & vbCrLf & "&8&uVolksbank Damme eG" & vbCrLf & "&8BLZ 280 616 79" & vbCrLf & "&8Konto-Nr. 55-50-600"
.CenterFooter = "&8&U " & vbCrLf & "&8&uVolksbank Damme eG" & vbCrLf & "&8BLZ 280 616 79" & vbCrLf & "&8Konto-Nr. 55-50-600"
.RightFooter = "&8&U " & vbCrLf & "&8&uVolksbank Damme eG" & vbCrLf & "&8BLZ 280 616 79" & vbCrLf & "&8Konto-Nr. 55-50-600"
End With
ActiveWindow.SelectedSheets.PrintOut From:=ExecuteExcel4Macro("Get.Document(50)"), To:=ExecuteExcel4Macro("Get.Document(50)"), Copies:=1
With ActiveSheet.PageSetup
.PrintArea = ""
.LeftHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
End Sub
Mit freundlichen Grüßen Gerd