I have a query made already with all the information I need on it but I am unsure how to make the SKID# box print out like the excel code. Excel code is below and in excel it prints out the numbers starting from the first input and ending at the last input. What the sheet looks like is also attached. I want to make a report that looks like the excel sheet and prints out just like the excel sheet with the operator putting in the starting and ending number for the skid.
Thank you for the help.
Private Sub CommandButton1_Click()
Dim copies As Integer
Dim MyInput As Integer
Dim StartInput As Integer
StartInput = InputBox("Starting Number?")
MyInput = InputBox("Ending Number?")
For copies = StartInput To MyInput
Cells(5, 10).Select 'this will be where you want to form number to appear
ActiveCell.Value = copies 'this assumes you want to start with #1. You can
'change this to ActiveCell.Value = ActiveCell.Value + 1
'and manually set the first
'form number before you run the macro
ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
Next copies
End Sub