VB6 Format(Code For Printing Cash Receipts)

[Tenneyson]

Hi

Can anybody help! how do i format this code so that the results printed will be aligned. E.G. should print like this

First Funeral Assurance Co.

PolicyNo : F000001
Name : Tenneyson Katunga
Premium : $100.00

Private Sub cmdtest_Click()
 
Printer.Print "First Funeral Assurance Company"
Printer.Print "Policy No: " & txtPolicyNo.Text
Printer.Print "Name: " & dgPaymentsFinal.Columns("Surname") & " " & dgPaymentsFinal.Columns("FName")
Printer.Print "Premium  : " & Format(txtPremium.Text, "$0,000.00")
Printer.EndDoc
 
End Sub
 

[debasisdas]

Better try to use some reporting tool like Crystal report or data report for the purpose.

[QVeen72]

Hi,

Try this :

Printer.FontBold = True
Printer.Print "First Funeral Assurance Company"
Printer.Print "Policy No: " ;
Printer.FontBold = False
Printer.Print txtPolicyNo.Text
Printer.FontBold = True
Printer.Print "Name: ";
Printer.FontBold = False
Printer.Print dgPaymentsFinal.Columns("Surname") & " " & dgPaymentsFinal.Columns("FName")
Printer.FontBold = True
Printer.Print "Premium  : ";
Printer.FontBold = False
Printer.Print Format(txtPremium.Text, "$0,000.00")
Printer.EndDoc
Printer.NewPage
 

a SemiColon at the End, ensures, you are printing some more info on the same line..

Regards
Veena

[Tenneyson]

Hi,

Try this :

Printer.FontBold = True
Printer.Print "First Funeral Assurance Company"
Printer.Print "Policy No: " ;
Printer.FontBold = False
Printer.Print txtPolicyNo.Text
Printer.FontBold = True
Printer.Print "Name: ";
Printer.FontBold = False
Printer.Print dgPaymentsFinal.Columns("Surname") & " " & dgPaymentsFinal.Columns("FName")
Printer.FontBold = True
Printer.Print "Premium  : ";
Printer.FontBold = False
Printer.Print Format(txtPremium.Text, "$0,000.00")
Printer.EndDoc
Printer.NewPage
 

a SemiColon at the End, ensures, you are printing some more info on the same line..

Regards
Veena

Hi Veena

thanks for your help, It seems to be working

regards