Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here


help with printing in VB .net

help with printing in VB .net

help with printing in VB .net

hi need some help
i'm new to vb .net and want to print from a form but cant seem to get the print dialog to display. i can get the print preview up but wont put an image in it,

thanks for any help with this guys

RE: help with printing in VB .net

You may get better results by posting this at tek-tips.com

RE: help with printing in VB .net

Sorry to bring bad news, but we struggled with printing from vb.net also.  There are utilities availble out there to help (so I am told), but when I contacted a colleague w/ a lot of VB experience, he said "It's not what VB is for.  Get the data out to another program, which VB is good at doing, and print it from there."

Some manage to print from VB, but I've seen it and would rather take the easy way and transfer data to a print- friendly app.

Good Luck!

RE: help with printing in VB .net

Hi Leetech,
If you are wanting to print the form, this is the method I use.  For the form, Met3Grid, the code for the Print Form Button (Command4) is as shown below.  Most of this code simply turns off stuff not to be printed and then after printing, turning the stuff back on.    

Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command4.Click
        Dim J As Integer
        Command1.Visible = False
        Command2.Visible = False
        Command3.Visible = False
        Command4.Visible = False
        Command5.Visible = False
        Command6.Visible = False
        Label5.Visible = False
        Label6.Visible = False
        Label7.Visible = False
        Label8.Visible = False
        Met3Grid.DefInstance.BackColor = System.Drawing.ColorTranslator.FromOle(&HFFFFFF)
        'We make the form look pretty before its picture  
        'Get a Graphics Object from the form
        Dim FormG As Graphics = Me.CreateGraphics
        'Create a bitmap from that graphics
        Dim i As New Bitmap(Me.Width, Me.Height, FormG)
        'Create a Graphics object in memory from that bitmap
        Dim memG As Graphics = Graphics.FromImage(i)
        'get the IntPtr's of the graphics
        Dim HDC1 As IntPtr = FormG.GetHdc
        Dim HDC2 As IntPtr = memG.GetHdc
        'get the picture
        BitBlt(HDC2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, HDC1, 0, 0, 13369376)
        'Clone the bitmap so we can dispose this one
        Me.Print_Image = i.Clone()
        'Clean Up
        'Show the PrintDialog
        PrintDialog1 = New PrintDialog
        PrintDialog1.Document = PrintDocument1
        Dim r As DialogResult = PrintDialog1.ShowDialog
        If r = DialogResult.OK Then
            'Print the document
        End If
        Met3Grid.DefInstance.BackColor = System.Drawing.ColorTranslator.FromOle(&H8000000F)
        Command1.Visible = True
        Command2.Visible = True
        Command3.Visible = True
        Command4.Visible = True
        Command5.Visible = True
        Command6.Visible = True
        Label5.Visible = True
        Label6.Visible = True
        Label7.Visible = True
        Label8.Visible = True
    End Sub

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members! Already a Member? Login


White Paper - How to Capitalize on HVAC/R Trends to Drive Business Growth
According to Steve Yurek, CEO of the Air Conditioning, Heating and Refrigeration Institute, the HVAC/R industry is facing change on all fronts. This includes challenging trends on contractors and distributors like new refrigerants, growing automation, complex sensors and monitoring, green initiatives and a technician shortage. We look at these trends and outline actionable insights on how it all can be turned into a competitive advantage and business opportunity. Download Now
eBook - Manufacturing the Cars of Tomorrow
In this ebook, we'll explore how additive manufacturing is going to transform the way cars are made. This includes commentary from thought leaders such as Ford's CTO, Ken Washington, Customer case studies of ways 3D printing is being used today, and a variety of part examples where 3D printing is already impacting how automobiles are made. Download Now
White Paper - Smart Manufacturing for Semiconductor
New technologies and approaches present great opportunities for semiconductor manufacturers to achieve high levels of innovation, yield and improvement. This white paper explores some of these cutting-edge technologies and how they can be applied effectively in the semiconductor industry. Read about how Smart Manufacturing is transforming the semiconductor industry. Download Now

Close Box

Join Eng-Tips® Today!

Join your peers on the Internet's largest technical engineering professional community.
It's easy to join and it's free.

Here's Why Members Love Eng-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close