How I Can print a part of parent form!!!

Question

Hi i am making project in which there is customer ticket section in main formSo i need to print that customer ticket So if any of you have code for that then please send me it to kamlesh_ce_2005@yahoo.com or reply fast Thank You.

saphiroth42 · Answer

This is the code to print the form you can ajust the size of the form to print. Declerations: Private m_PrintBitmap 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 Private Const SRCCOPY As Integer = &HCC0020 Private WithEvents m_PrintDocument As PrintDocument Subs and Functions: Public Function GetFormImage(ByVal frm As Form) As Bitmap ' Get this form's Graphics object. Dim me_gr As Graphics = frm.ActiveForm.CreateGraphics ' Make a Bitmap to hold the image. Dim bm As New Bitmap(frm.ClientSize.Width frm.ClientSize.Height me_gr) Dim bm_gr As Graphics = me_gr.FromImage(bm) Dim bm_hdc As IntPtr = bm_gr.GetHdc ' Get the form's hDC. We must do this after ' creating the new Bitmap which uses me_gr. Dim me_hdc As IntPtr = me_gr.GetHdc ' BitBlt the form's image onto the Bitmap. BitBlt(bm_hdc 0 0 frm.ClientSize.Width frm.ClientSize.Height _ me_hdc 0 0 SRCCOPY) me_gr.ReleaseHdc(me_hdc) bm_gr.ReleaseHdc(bm_hdc) ' Return the result. Return bm End Function Public Sub m_PrintDocument_PrintPage(ByVal sender As Object ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles m_PrintDocument.PrintPage ' Draw the image centered. Dim x As Integer = e.MarginBounds.X + _ (e.MarginBounds.Width - m_PrintBitmap.Width) \ 2 Dim y As Integer = e.MarginBounds.Y + _ (e.MarginBounds.Height - m_PrintBitmap.Height) \ 2 e.Graphics.DrawImage(m_PrintBitmap x y) ' There's only one page. e.HasMorePages = False End Sub Add this code in button to print Form: ' Copy the form's image into a bitmap. m_PrintBitmap = GetFormImage(Me) ' Make a PrintDocument and print. m_PrintDocument = New PrintDocument m_PrintDocument.Print() Timer1.Interval = 3000

MythicalMe · Answer

I suggest that you read the help files for using the PrintDocument() control.