How to print a text aligned to right? (RESOLVED)

[AlvaroF1]

The easiest way I found to align a text to right (VB6):

Private Sub Command1_Click()
    With Printer
        .CurrentX = 1000 - .TextWidth("1,000.00")
        .CurrentY = 2000
        Printer.Print "1,000.00"
        .CurrentX = 1000 - .TextWidth("10,000.00")
        .CurrentY = 3000
        Printer.Print "10,000.00"
        .EndDoc
    End With
End Sub

What about VB .NET?


Thanks.

[Pirate]

Have a look here :
http://msdn.microsoft.com/library/de...albasicnet.asp

[AlvaroF1]

Thanks, but it's not clear to me.

Do you have any example?


Thank you.

[Pirate]

Just one link from MS website http://msdn.microsoft.com/library/de...ClassTopic.asp . There are much more if you just google it .

[AlvaroF1]

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim fnt As New Font("Arial", 12)
        Dim txt As String
        txt = "1,000.00"
        e.Graphics.DrawString(txt, fnt, Brushes.Black, 1000 - e.Graphics.MeasureString(txt, fnt).Width, 2000, New StringFormat())
        txt = "10,000.00"
        e.Graphics.DrawString(txt, fnt, Brushes.Black, 1000 - e.Graphics.MeasureString(txt, fnt).Width, 3000, New StringFormat())
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDocument1.Print()
    End Sub