[RESOLVED] [2008] Printer.Print in 2008

[erickwidya]

what is the equivalent method in VB.NET 2008 for printer.print in VB6

thanks,

[RobDog888]

There is no easy equilivalent. You have to do all the printing yourself. Use the PrintDocument control/object which will give you the "canvas" on which to print.

[erickwidya]

thx RD

I already explore PrintDocument Object, it seem need File as an input while Printer.Print just directly print it

[RobDog888]

Printer.Print is a VB 6 method and the whole print architechure in .NET is completely different. You will not find a managed code colution as simple as Printer.Print

[Merrion]

If you are migrating a VB6 solution that uses Printer.Print then I'd suggest adding the Microsoft Visual Basic Power Packs 3.0 which enables straigh-forward Printer.Print type code.

However for a new application I would recommend using the .NET framework printing methods as they are far far far more powerful than Printer.Print - there is a beginners guide that I wrote here...

[RobDog888]

I would strongly advise against using utilities or packs that allow the use of legacy VB 6 code in .NET as you will never learn as much or be able to take advantage of the power of the framework.

[erickwidya]

i agree with RD,

if still want to use Classic then don't use .NET but thanks for the info Merrion, i will keep it in mind

You will not find a managed code colution as simple as Printer.Print -> yes, very hard to understand at first but i come up with a solution, not try print yet but it found the Default Printer

  Dim oPrintDocument As New PrintDocument

        AddHandler oPrintDocument.PrintPage, AddressOf PrintDocument_PrintPage

 Private Sub PrintDocument_PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)

        ' Create font and brush.
        Dim drawFont As New Font("Arial", 10)
        Dim drawBrush As New SolidBrush(Color.Black)

        ' Create point for upper-left corner of drawing.
        Dim drawPoint As New PointF(150.0F, 150.0F)

        ' Draw string to screen.
        ev.Graphics.DrawString("TESPRINT", drawFont, drawBrush, drawPoint)

    End Sub ' PrintDocument_PrintPage