تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طباعة ال data grid view
#1
عملت كود لطباعة ال grid view لكن المشكلة انو ما بطبعلي البيانات اللي داخله وكذلك اذا في طريقة تطبعي كل ال grid view في صفحة واحده لانو بيعطيني اياه في اكثر من صفحة كونو الاعمدة اللي فيه عددها كبير
كود زر معاينة قبل الطباعة هو كالتالي :
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If (SetupThePrinting()) Then
Dim MyPrintPreviewDialog As PrintPreviewDialog
MyPrintPreviewDialog = New PrintPreviewDialog()

MyPrintPreviewDialog.Document = PrintDocument1
MyPrintPreviewDialog.ShowDialog()
End If
End Sub
"******************************************
Private Sub PrintDocument1_PrintPage1(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim more As Boolean
more = MyDataGridViewPrinter.DrawDataGridView(e.Graphics)
If more = True Then
e.HasMorePages = True
End If
End Sub
"**************************************************
Private Function SetupThePrinting() As Boolean
Dim MyPrintDialog As New PrintDialog()

MyPrintDialog.AllowCurrentPage = False
MyPrintDialog.AllowPrintToFile = False
MyPrintDialog.AllowSelection = False
MyPrintDialog.AllowSomePages = False
MyPrintDialog.PrintToFile = False
MyPrintDialog.ShowHelp = False
MyPrintDialog.ShowNetwork = False

If MyPrintDialog.ShowDialog() <> DialogResult.OK Then
Return False
End If

PrintDocument1.DocumentName = "الجرد السنوي"
PrintDocument1.PrinterSettings = MyPrintDialog.PrinterSettings
PrintDocument1.DefaultPageSettings = MyPrintDialog.PrinterSettings.DefaultPageSettings
PrintDocument1.DefaultPageSettings.Margins = New Margins(40, 40, 40, 40)

If MessageBox.Show("Do you want the report to be centered on the page", "InvoiceManager - Center on Page", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
MyDataGridViewPrinter = New DataGridViewPrinter(DataGridView1, PrintDocument1, True, True, "معلومات المرضى", New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point), _
Color.Black, True)
Else
MyDataGridViewPrinter = New DataGridViewPrinter(DataGridView1, PrintDocument1, False, True, "معلومات المرضى", New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point), _
Color.Black, True)
End If

Return True
End Function
"***************************************************
الرد }}}}
تم الشكر بواسطة:
#2
ما في حد عندو رد لهالموضوع
الرد }}}}
تم الشكر بواسطة:
#3
http://vb4arb.com/vb/showthread.php?tid=...16#pid1216
الرد }}}}
تم الشكر بواسطة: Sajad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طباعة كل سجل في صفحة منفصلة فانتسي ارت 3 931 21-11-17, 05:09 PM
آخر رد: abdhassan
  [سؤال] طريقة طباعة تقرير ReportViewer مباشرة عبد الله 7 3,735 13-11-17, 01:16 PM
آخر رد: fefooo
  [VB.NET] طباعة التقرير مباشرة بالكود AHMED SHARAF 1 135 24-09-17, 04:31 PM
آخر رد: wale90
  طباعة التقرير aftfm 7 365 18-05-17, 05:30 PM
آخر رد: alma2
  كود طباعة فاتورة مبيعات على طابعة EPSON LQ-300+ /II ESC/P 2 سيد درويش 2 4,267 27-11-16, 12:14 PM
آخر رد: hglogtd
  [Acces2007] طباعة التقرير في صفحتين محمد خلف زكي 2 547 12-09-16, 12:25 AM
آخر رد: adel2012
  طباعة السجل الحالي علي كعبي 19 1,495 23-06-16, 02:11 AM
آخر رد: علي كعبي
  [سؤال] كيف يمكننى طباعة كل الفواتير مصممه بالكريستال ريبورت وvb.net? محمود بكرى 4 1,173 21-06-16, 11:46 PM
آخر رد: محمود بكرى
  طباعة التقرير من جدولين aftfm 19 1,706 09-06-16, 03:20 AM
آخر رد: حريف برمجة
  [سؤال] ارجو المساعدة رسالة خطاء عند طباعة التقرير من كريستال ريبورت 13 ahmed saleh 2 623 18-05-16, 03:52 AM
آخر رد: abdhassan

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم