Advertisement
Advertisement
| 06.18.2008 at 08:31AM PDT, ID: 23495620 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: |
Sub PrintForm()
' prints out the number of forms requested in cell B2, with incremental numbers
Application.ActivePrinter = "\\minncorp1\Minncorp-PRT5-Ricoh3045 on Ne02:"
ActiveSheet.Protect UserInterfaceOnly:=True
IDnum = Sheets("Printing Info").Range("B1").Value
For i = 1 To Range("B2").Value
IDnum = IDnum + 1
Sheets("FORM").Range("L2").Value = IDnum
Sheets("FORM").PrintOut Copies:=2, Collate:=True, ActivePrinter:= _
"\\minncorp1\Minncorp-PRT5-Ricoh3045 on Ne02:"
Next i
Sheets("Printing Info").Range("B1").Value = IDnum
End Sub 'PrintForm
|