Lesson 39: Printing in VB6

Private Sub Form_Load()
    Printer.Print "Welcome to Visual Basic"
    Printer.EndDoc
End Sub
                        

Private Sub Command1_Click()
    Dim x, y As String, z As Variant
    x = InputBox("Enter the first Number")
    y = InputBox("Enter the second Number")
    z = Val(x) + Val(y)
    Printer.Print "The answer is " & z
    Printer.EndDoc
End Sub
                        

Private Sub CmdPrint_Click()
    Printer.Print Text1.Text
    Printer.EndDoc
End Sub
                        

Private Sub CmdPrintFormatted_Click()
    ' Set font properties
    Printer.FontName = "Verdana"
    Printer.FontSize = 16
    Printer.FontBold = True
    Printer.FontItalic = True
    Printer.FontUnderline = True
    
    ' Print centered title
    Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth("Report Title")) / 2
    Printer.Print "Report Title"
    
    ' Reset formatting for body
    Printer.FontBold = False
    Printer.FontItalic = False
    Printer.FontUnderline = False
    Printer.FontSize = 10
    
    ' Print content
    Printer.Print "This is a formatted report generated from VB6"
    Printer.Print "Printed on: " & Format(Date, "Long Date")
    
    ' Add page number
    Printer.CurrentY = Printer.ScaleHeight - 500
    Printer.Print "Page " & Printer.Page
    
    Printer.EndDoc
End Sub
                        

Private Sub Command1_Click()
    Dim i, j As Integer
    For i = 2 To 9
        For j = 2 To 9
            Printer.Print i & "x" & j & " =" & i * j
        Next j
        Printer.Print ' Print blank line
    Next i
    Printer.EndDoc
End Sub