• Home
 · 
• Miscellaneous
 · 
• Shows how to center a word and send to the printer.

Shows how to center a word and send to the printer.

Shows how to center a word and send to the printer.

Rate Shows how to center a word and send to the printer.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim strWord As String
Dim intPos As Integer
strWord$ = Text1.Text$
intPos = Len(strWord$)
Printer.Font.Name = "Times New Roman"
Printer.Font.Size = 12
intPos = (116 - intPos) / 2
Printer.Print Spc(intPos); strWord$
Printer.EndDoc
End Sub