Text Reports

How Can I Print a Text Report with Page Margins & Paper Size A4 From VB. If Anybody knows about it Please Answer this Question

print sample ..

VB Code:

Private Sub Command1_Click()
    Dim iLeftMarg As Integer
    Dim iTopMarg As Integer
    Dim i As Integer
    
    iTopMarg = 1440
    iLeftMarg = 1440
    
    Printer.CurrentY = iTopMarg
    Printer.CurrentX = iLeftMarg
    
    For i = 1 To 20
        Printer.CurrentX = iLeftMarg
        Printer.Print "Line numero " & i
    Next i
    Printer.EndDoc
End Sub