Sub PRINTSUPPLYONLY()
Select Case _
MsgBox("HAVE YOU SELECTED THE SYSTEM IN THE DELIVERY SHEET?", _
vbYesNo Or vbQuestion Or vbDefaultButton1, "Delivery sheet")
Case vbYes
Sheets("Delivery note").Select
MsgBox "PLEASE INSERT 1 SHEET OF HEADED PAPER!"
Sheets("Receipt of deposit letter").Select
ExecuteExcel4Macro "PRINT(1,,,2,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Job Sheet").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Delivery note").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Case vbNo
Sheets("Delivery note").Select
Range("B16").Select
Exit Sub
End Select
Bookmarks