Stamping Problem

The Problem - Coworkers were stamping papers for 20-30 minutes every day. Just numbers, nothing more.

Solution - Simple Excel macro which "stamps" numbers. Put papers in printer, choose the number of pages and enjoy your coffee.

Code (VisualBasic):

chilisquad@code-snacks:~$

		    
Sub printLabel()
    Dim xScreen As Boolean
    Dim pagesNumber As Variant
    Dim incr As Long
    Dim boxNumber As Long
    On Error Resume Next
LInput:
    boxNumber = Application.InputBox("Please input the starting number.", "OK")
    pagesNumber = Application.InputBox("How many pages? (2 stamps on each page.)", "OK")
    If TypeName(pagesNumber) = "Boolean" Then Exit Sub
    If (pagesNumber = "") Or (Not IsNumeric(pagesNumber)) Or (pagesNumber < 1) Then
        MsgBox "musis napsat cislo ", vbInformation, "OK"
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For incr = 1 To pagesNumber
            ActiveSheet.Range("Q26").Value = boxNumber
            ActiveSheet.Range("Q55").Value = boxNumber + 1
            boxNumber = boxNumber + 2
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("Q26").ClearContents
        ActiveSheet.Range("Q55").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub