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?

 

[NdNoviceHlp]

Not perfect but seems to work. HTH. Dave

Sub Button561_Click()
' Enter_Date_and_Print()
Dim MyDate As Date
MyDate = Application.InputBox("Please Enter a Date", "Date")
If MyDate <> "12:00:00 AM" Then
Range("C3") = MyDate
' Change Copies:=2 (below) to 1 or however many copies you want
ActiveWindow.SelectedSheets.PrintOut Copies:=2
Else
MsgBox "No date entered!"
End If
End Sub

 

[PeteWright]

You should also consider if the user just clicks OK without entering a date or presses ESC.
Below code takes care of everything.
Try it out and change the error messages as you wish or simply remove them.

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: input aborted!"
                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
                    ActiveWindow.SelectedSheets.PrintOut Copies:=2
                Else
                    MsgBox "invalid date"
                End If
            Case Else
                MsgBox "Error: unknown error"
                Exit Sub
        End Select
End Sub

 

[NdNoviceHlp]

In my testing when str = "" a type mismatch error was produced. Dave

 

[PeteWright]

Not perfect but seems to work. HTH. Dave

Sub Button561_Click()
' Enter_Date_and_Print()
Dim MyDate As Date
MyDate = Application.InputBox("Please Enter a Date", "Date")
If MyDate <> "12:00:00 AM" Then
Range("C3") = MyDate
' Change Copies:=2 (below) to 1 or however many copies you want
ActiveWindow.SelectedSheets.PrintOut Copies:=2
Else
MsgBox "No date entered!"
End If
End Sub

Your code works with some limitations.
When the user clicks OK without entering a date or types in an invalid date, you'll get a TYPE MISMATCH ERROR in VBA

 

[NdNoviceHlp]

Pete your approach is much better. Having a string input instead of a date input (ie. no error) from the inputbox was the part I was missing. I'm guessing micfly will appreciate it as well. Be safe. Dave

 

[micfly]

Awesome, thanks guys, both work - that really helped! Any hope of getting a "Select Printer" option?

 

[NdNoviceHlp]

See John_W's post here...Set ActivePrinter using VBA | MrExcel Message Board
Dave

 

[micfly]

Okay, thanks for the suggestion. I am having trouble understanding the printer part and would not know how to incorporate that in this code?
I just want it to ask me which printer (Select?) before it prints.

 

[NdNoviceHlp]

This might be a bit much but U can trial it...

Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

HTH. Dave