Printing Twice

[josmarfieror]

Dear MrExcel,

Please help me in executing my code below. I got a problem because they were printed TWICE. It's a waste of Paper and ink on my part.

Sub GenericInputbox()
Dim SprNum As String
SprNum = Inputbox("Enter the row number")
Range("M10").Value = SprNum
'to print the output
If Application.Dialogs(xlDialogPrint).Show = True Then
Application.ActiveSheet.PrintOut Copies:=1, Collate:=True
End If
End Sub

Thanks,
Josmar

 

[JoeMo]

Does this work for you?

Sub GenericInputbox()
Dim SprNum As String
SprNum = Inputbox("Enter the row number")
Range("M10").Value = SprNum
'to print the output
Application.ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub

 

[josmarfieror]

Does this work for you?

Sub GenericInputbox()
Dim SprNum As String
SprNum = Inputbox("Enter the row number")
Range("M10").Value = SprNum
'to print the output
Application.ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub

HiJoe,

Thank you so much! I feel sad hearing about your state now. Yes, I did that code. However, what if in case I wanted to abort the printing because i got mistake. How would it be?

Thanks,
josmarfieror

 

[Michael M]

Maybe this if the Input box is blank

Sub GenericInputbox()
Dim SprNum As String
SprNum = InputBox("Enter the row number")
If SprNum = "" Then Exit Sub
Range("M10").Value = SprNum
'to print the output
Application.ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub

 

[josmarfieror]

Maybe this if the Input box is blank

Sub GenericInputbox()
Dim SprNum As String
SprNum = InputBox("Enter the row number")
If SprNum = "" Then Exit Sub
Range("M10").Value = SprNum
'to print the output
Application.ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub

DearMichaelM
It works. However, when I tried to protect the sheet, the a debug "400" has shwon.

Thanks,
Josmar