Currently I have to buttons to print certain data, one prints on plain paper the other on colored paper.
I am sure there is a way to be able to click one button then get it to prompt to change paper once done hit OK and then continues.
This is the code which works well but be easier to click once.
Button 1
Private Sub cboPrintEAMB_Click() 'Printout for Eamb's
Worksheets("Data").Range("H17").Value = 47 'Set this to First Row of Data sheet where EAMB's start
Worksheets("Data").Range("H18").Value = 60
'Set this to Last Row of Data Sheet where NBC's End
Worksheets("EAMB's").Activate
PrintForms
End Sub
Button 2
Private Sub cboPrintNBC_Click() 'Printout for NBC110
Worksheets("Data").Range("H17").Value = 2 'Set this to First Row of Data sheet where NBC's start
Worksheets("Data").Range("H18").Value = 46
'Set this to Last Row of Data Sheet where NBC's End
Worksheets("NBC110").Activate
PrintForms
End Sub
Bookmarks