I found this answer that works perfectly for me...
[code]
Private Const SRCCOPY As Integer = &HCC0020
Private memImage As Bitmap
Private Declare Auto Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As
IntPtr, _
ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, _
ByVal nYSrc As Integer, ByVal dwRop As System.Int32) As Boolean
Dim currPage As Integer
Dim LastPage As Integer
Private WithEvents PrintDocument1 As New PrintDocument
Private Sub btnPrint_Click( ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles btnPrint.Click
BuildFormImage( )
With PrintDialog1
.AllowPrintToFi le = False
.AllowSelection = False
.AllowSomePages = False
.PrinterSetting s = New PrinterSettings
With .PrinterSetting s
.PrintRange = PrintRange.AllP ages
LastPage = .Copies
End With
If .ShowDialog <> DialogResult.OK Then Exit Sub
If .PrinterSetting s.PrintRange = PrintRange.AllP ages Then
Dim FirstPage As Integer = 1
Dim LastPage As Integer = .PrinterSetting s.Copies
PrintLabel(Firs tPage, LastPage)
End If
End With
End Sub
Private Sub BuildFormImage( )
'this procedure builds an image (snapshot) of the form
Dim graphicID As Graphics = pnlLabel.Create Graphics
Dim sizeID As Size = pnlLabel.Size
memImage = New Bitmap(sizeID.W idth, sizeID.Height, graphicID)
Dim memGraphic As Graphics = graphicID.FromI mage(memImage)
Dim deviceContext1 As IntPtr = graphicID.GetHd c
Dim deviceContext2 As IntPtr = memGraphic.GetH dc
BitBlt(deviceCo ntext2, 0, 0, pnlLabel.Client Rectangle.Width ,
pnlLabel.Client Rectangle.Heigh t, deviceContext1, 0, 0, SRCCOPY)
graphicID.Relea seHdc(deviceCon text1)
memGraphic.Rele aseHdc(deviceCo ntext2)
End Sub
Sub PrintLabel(ByVa l FirstPage As Integer, ByVal LastPage As Integer)
Me.currPage = FirstPage
Me.LastPage = LastPage
Me.PrintDocumen t1 = New PrintDocument
Try
PrintDocument1. Print()
Catch ex As Exception
MessageBox.Show (ex.Message, "Print Error")
End Try
End Sub
Private Sub PrintDocument1_ PrintPage(ByVal sender As Object, ByVal e As
System.Drawing. Printing.PrintP ageEventArgs) Handles PrintDocument1. PrintPage
'this procedure draws the image (snapshot) to the print document
Dim formGraphics As Graphics = e.Graphics
formGraphics.Dr awImage(memImag e, 0, 0)
currPage += 1
e.HasMorePages = (currPage <= LastPage)
End Sub
Thanks for your input.
DJ
"DJ Pomeroy" <dj*******@alme gatf.com> wrote in message
news:Oa******** ******@TK2MSFTN GP12.phx.gbl...
I just can't seem to get it...
I have a form. On this form is a panel. In this panel is a bunch of
objects - graphics, text, and so on. I want to be able to print what's in
the panel to a printer. I'm not using Crystal Reports. Here's the code I
have so far...
- Dim CurrPage As Integer
- Dim LastPage As Integer
- Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As
- System.EventArgs) Handles btnPrint.Click
- With PrintDialog1
- .AllowPrintToFile = False
- .AllowSelection = True
- .AllowSomePages = False
- .PrinterSettings = New PrinterSettings
- .PrinterSettings.PrintRange = PrintRange.Selection
- If .ShowDialog <> DialogResult.OK Then Exit Sub
- Dim LastPage As Integer = .PrinterSettings.Copies
- Dim FirstPage As Integer = 1
- PrintPages(FirstPage, LastPage)
- End With
- End Sub
- Sub PrintPages(ByVal FirstPage As Integer, ByVal LastPage As Integer)
- Me.CurrPage = FirstPage
- Me.LastPage = LastPage
- Me.PrintDocument2 = New PrintDocument
- Try
- PrintDocument2.Print()
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Print error")
- End Try
- End Sub
- Private Sub PrintDocument2_PrintPage(ByVal sender As System.Object, ByVal
-
e
- As System.Drawing.Printing.PrintPageEventArgs) Handles
- PrintDocument2.PrintPage
- Me.LastPage = LastPage
- 'What to print needs to be entered here.
- CurrPage += 1
- e.HasMorePages = (CurrPage <= LastPage)
- End Sub
-
Basically, I don't know what to put in the "PrintPage" sub. Any ideas?
DJ Pomeroy
