Habe ein Userform mit einem Print Button. Nun möchte ich, dass der Benutzer durch anklicken dieses Buttons das Formular ausdrucken und gleichzeit einen Printer auswählen kann.
Folgenden Code habe ich hinterlegt. Beim drucken kommt jedoch nicht nur ein Print des Formulars sondern auch der Excel Tabelle.
Private Sub CommandButton8_Click()
Dim fOK As Boolean
Dim sPrinter As String
’
With Application
sPrinter = .ActivePrinter
fOK = .Dialogs(xlDialogPrint).Show
End With
If fOK Then
Me.PrintForm
Application.ActivePrinter = sPrinter
End If
End Sub
Weiss jemand was hier falsch ist, resp. geändert werden muss damit nur das Formular gedruckt wird?
Vielen Dank für Eure Hilfe.
Michael