[RESOLVED] Need help with printing in VB.Net 2008

[leeshadmi]

Hi,
I never printed in VB.Net code so I don’t know how to do it at all.
My task is to be able to print Invoices from my application.
The Invoices need to be printed with a given Logo image (From file) and with text that I can set from my application.
All the help I can get here is very welcome
Thanks

[GremlinSA]

You need to use the printers Object..

here is a sample Printing Class that i use to print simple Barcoded tags on a lable printer

Imports System.Drawing
Namespace Printers

    Public Class PrintDocument
        Private WithEvents _PrintDialog As New System.Windows.Forms.PrintDialog
        Private _PrinterObject As New System.Printing.LocalPrintServer
        Private Regfunctions As New DataFunctions.Regfunctions.Regfunctions
        Private _PrinterName As DataFunctions.Regfunctions.Regfunctions.Regkeys
        Private WithEvents _PrintItem As Drawing.Printing.PrintDocument
        Public Event PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

        Public Sub New(ByVal PrinterID As String)
            _PrinterName = Regfunctions.Load(DataFunctions.Regfunctions.Regfunctions.Reg_type.Current_Config, DataFunctions.Regfunctions.Regfunctions.KeyRegloc & "\Printers", PrinterID, _PrinterObject.DefaultPrintQueue.FullName)
            _PrintDialog.PrinterSettings.PrinterName = _PrinterName.KeyVal
        End Sub

        Public Function ShowDialog() As Windows.Forms.DialogResult
            Dim TmpResult As Windows.Forms.DialogResult
            TmpResult = _PrintDialog.ShowDialog()
            _PrinterName.KeyVal = _PrintDialog.PrinterSettings.PrinterName
            Regfunctions.Save(_PrinterName)
            Return TmpResult
        End Function

        Public Function Print() As Windows.Forms.DialogResult
            _PrintItem = New Printing.PrintDocument
            _PrintItem.PrinterSettings = _PrintDialog.PrinterSettings
            _PrintItem.Print()
        End Function

        Private Sub _PrintItem_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _PrintItem.PrintPage
            RaiseEvent PrintPage(sender, e)
        End Sub

    End Class

    Public Class PrintTags
        Private _BarcodeNo As String
        Private _DateString As String
        Private _PartNO As String
        Private _Station As String
        Private _BarCode As Image
        Private Barcodes As New Barcodes.BarcodeModule

        Public Sub PrintTag(ByVal BarcodeNo As String, ByVal DateStr As String, ByVal PartNO As String, ByVal Station As String)
            Dim TmpRec As New Rectangle
            TmpRec.Width = 280
            TmpRec.Height = 100


            _BarcodeNo = BarcodeNo
            _DateString = DateStr
            _PartNO = PartNO
            _Station = Station
            _BarCode = Barcodes.NewBarcode(_BarcodeNo, TmpRec)

            Dim TmpPrinter As New Printers.PrintDocument("BCPrinter")
            AddHandler TmpPrinter.PrintPage, AddressOf PrintTheTag
            TmpPrinter.Print()
        End Sub

        Private Sub PrintTheTag(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
            Dim canvas As Graphics = e.Graphics
            Dim Font1 As New Font("Arial", 24, FontStyle.Bold, GraphicsUnit.Pixel)
            canvas.DrawString(_Station, Font1, Brushes.Black, 10, 10)
            canvas.DrawString(_BarcodeNo, Font1, Brushes.Black, 10, 50)
            canvas.DrawString(_PartNO, Font1, Brushes.Black, 10, 90)
            canvas.DrawString(_DateString, Font1, Brushes.Black, 10, 130)
            canvas.DrawImage(_BarCode, 0, 180, 280, 100)
        End Sub

    End Class
End Namespace

and where ever i need to print the tag i use..

Private TagPrint As New Printers.Printers.PrintTags

        TagPrint.PrintTag(Fonumber, Date.Now.ToString, Part, StationName)

[leeshadmi]

Thanks but i will understand better if it will be simple sample code like add lines, texts, images... send to print.

still need help...

[leeshadmi]

Actually your code give some clue about how to do it (Print what i tested at least...).
Here is the code i wrote in my form:

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim canvas As Graphics = e.Graphics
        Dim Font1 As New Font("Arial", 24, FontStyle.Bold, GraphicsUnit.Pixel)
        canvas.DrawString("Hello", Font1, Brushes.Black, 10, 10)
        canvas.DrawString("שלום", Font1, Brushes.Black, 10, 50)
        canvas.DrawString("sfddsfasdf", Font1, Brushes.Black, 10, 90)
        canvas.DrawString("hhfhfhfhfhfhfhfhf", Font1, Brushes.Black, 10, 130)
        canvas.DrawImage(Image.FromFile("C:\Document Icon.JPG"), 0, 180, 280, 100)        
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintDocument1.Print()
    End Sub

Can you please tell me if this ok to start with?
And the most important thing how can i set the text and all the page to be as right to left and not as English left to right?

Thanks a lot

[GremlinSA]

What you have there is perfect to start with .. as for right to left ... Not too sure... you'll have to dig around in the properties for how to set that ... else you could just right justify all the text on the page....

[DataMiser]

I noticed all the code above uses the graphics object. Surely the Printer object can print plain text without the need for a graphics object.

In VB6 you could call

Printer.Print "Text String"

[GremlinSA]

The graphics object is required when ..

The Invoices need to be printed with a given Logo image (From file)

.. and while you got it why not just put everything into the object ..

[DataMiser]

Ok, makes sense. Guess I wasn't paying enough attention

[leeshadmi]

Many thanks to you all,
I finally got how to work with it and complete my task.
GremlinSA your code gave me all what i needed to start, thanks.

[HanneSThEGreaT]

Please mark your thread resolved

[leeshadmi]

No prob, how do i do it?

[HanneSThEGreaT]

You click Thread tools above your first post, then you select Mark Thread resolved