josmarfieror
New Member
- Joined
- Dec 4, 2016
- Messages
- 4
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
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