Quick VBA cancel print question

[micfly]

Sub Button561_Click()
' Enter_Date_and_Print()
    Dim MyDate As Date
    MyDate = Application.InputBox("Please Enter a Date", "Date")
    Range("C3") = MyDate
    
    ' Change Copies:=2 (below) to 1 or however many copies you want
    ActiveWindow.SelectedSheets.PrintOut Copies:=2

End Sub

If the user clicks Cancel instead of entering a date it still prints. What can I add to this statement to cancel the print job if they click Cancel instead of OK?
Also, is there a way to get a prompt for which Printer to use?

 

[micfly]

Code:
Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

HTH. Dave

Thanks, Dave - that worked!

I replaced: ActiveWindow.SelectedSheets.PrintOut Copies:=2
with: Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

Now it all works and I can select which printer.

Sub Button561_Click()
' Enter_Date_and_Print()
    Dim MyDate As Date
    Dim Str As String
 
    Str = Application.InputBox("Please Enter a Date", "Date")
 
        Select Case Str
            Case False
                MsgBox "Error: Print Cancelled!"
                Exit Sub
            Case ""
                MsgBox "Error: empty input"
                Exit Sub
            Case Is <> ""
                If IsDate(Str) = True Then
                    MyDate = Str
                    Range("C3") = MyDate
                    
                'Change Copies:=2 (below) to 1 or however many copies you want (uncomment for below)
                'ActiveWindow.SelectedSheets.PrintOut Copies:=2
                
                'Use this one (below - instead of above) to select which printer to use before printing
                Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
                
                Else
                    MsgBox "invalid date"
                End If
            Case Else
                MsgBox "Error: unknown error"
                Exit Sub
        End Select
End Sub

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Merry X-mas and be safe. Dave