PrinterSettings in VB.NET

[Scott Price]

Hello kind folks over here!

I'm taking a hiatus from developing a couple of databases to work a little with VB.Net. My problem is understanding how to send page settings to the printer bypassing the Page Settings dialog box. For my application there will be no need for anyone to change paper sizes, margins, etc etc etc... so why give them too many options, eh?

This code section is what I've been trying to use to send the paper size and layout, i.e. landscape to the printer, however it doesn't seem to do much towards making the printer listen when it talks...

Private Sub PrintPageHandler(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
        Try
 
            Dim psz As New Printing.PaperSize
 
 
            psz.PaperName = Printing.PaperKind.A4
            e.PageSettings.PaperSize = psz
            e.PageSettings.Landscape = True
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)

Anyone able to point me in the right direction?

Regards,
Scott

[Plater]

Have you taken a look at:
System.Drawing.Printing.PrintDocument
yet? I think you need to use one of those for such things.

[Scott Price]

Well, that was fast!

Thanks for the suggestion, but unless I'm not understanding exactly how to implement it, that doesn't work either.

I've tried initializing a new Printing.PrintDocument object, then setting the DefaultPageSettings to the paper size and landscape orientation that I want, however it does the same as the first code: compiles fine, executes fine but doesn't make the printer listen when it talks :-)

Thanks again,
Regards,
Scott

[Plater]

Hehe, I believe THAT was the PrintDocument I ment to link.
There used to be an article on Printing in the how-to's, but it appears to not be there anymore. Only thing that might help would be to search this forum for other's on Printing and see what they came up with?

[Scott Price]

First thing I done was search the posts here :-) No joy.

I'll keep researching... It seems an awfully complicated way to do things, so far I've found at least three different objects that have PageSettings properties, none of which seem to be working for me. I'll post back if I ever do get it to work.

Thanks again, and kind regards,
Scott

[Scott Price]

Well, this is what I've found out so far: vb.net isn't exactly as easy to understand as vba :-)

This is the sub I've gotten to work setting the landscape, margins and papersize:

Sub Button1Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim prn As New Printing.PrintDocument
        Dim pageSettings As System.Drawing.Printing.PageSettings = New System.Drawing.Printing.PageSettings
 
        pageSettings.Landscape = True
        pageSettings.PaperSize = New System.Drawing.Printing.PaperSize("A4", 210, 297)
        pageSettings.Margins.Top = 0
        pageSettings.Margins.Bottom = 0
        pageSettings.Margins.Left = 0
        pageSettings.Margins.Right = 0
 
        prn.DefaultPageSettings = pageSettings
        prn.PrinterSettings.PrinterName.ToString()
 
        AddHandler prn.PrintPage, AddressOf Me.PrintPageHandler
        prn.Print()
        RemoveHandler prn.PrintPage, AddressOf Me.PrintPageHandler
    End Sub

Someone else might run into this problem sometime too :-) This includes a call to the PrintPageHandler routine, which is a custom routine that builds the rectangles, strings, etc that I'm putting onto the page.

Thanks Plater!

Regards,
Scott

[lorenzana]

Get codeforms, it will do all the printing coding for you. its free:

http://www.neuronlabs.com/sendfile.php?file=nlsw0001.html