by Dimitry Volos (2 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 14th March 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Prints as many copies of what you will enter in text box as you want
API Declarations
Dim i As Integer
'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!")
No comments have been posted about Prints as many copies of what you will enter in text box as you want. Why not be the first to post a comment about Prints as many copies of what you will enter in text box as you want.