• Home
 · 
• Windows System Services
 · 
• Prints as many copies of what you will enter in text box as you want

Prints as many copies of what you will enter in text box as you want

Prints as many copies of what you will enter in text box as you want

API Declarations


Dim i As Integer




Rate Prints as many copies of what you will enter in text box as you want

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'reads how many coppies you has entered into textbox that will be printed
intN = Val(txtN.Text)

'prints below statement as many times as you specify
For i = 1 To intN
    Printer.FontSize = 50
    Printer.FontBold = True
     Printer.Print "HAHAHAHAHAHAHAHAHAHAHAHAHHHHHHHHHHHHHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA££££££££££££££££££££££££££££££££££££££££££££££££££££$************************"
    
Next i

'tells you that you have printed that much coppies
MsgBox ("Hey man you have just printed" + Str(intN) + " number of copies, go and collect you work!")