تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف يمكننى طباعة كل الفواتير مصممه بالكريستال ريبورت وvb.net? محمود بكرى 5 1,464 30-01-18, 04:41 PM
آخر رد: samirhorani
  طلب طباعة الفاتورة قبل الحفظ ملهمـ 0 86 21-01-18, 03:08 AM
آخر رد: ملهمـ
  [سؤال] مشكلة عند طباعة تقرير بجهاز آخر baqaa8 8 283 28-11-17, 04:27 PM
آخر رد: Amir_alzubidy
  طباعة كل سجل في صفحة منفصلة فانتسي ارت 3 1,052 21-11-17, 05:09 PM
آخر رد: abdhassan
  [سؤال] طريقة طباعة تقرير ReportViewer مباشرة عبد الله 7 4,525 13-11-17, 01:16 PM
آخر رد: fefooo
  [VB.NET] طباعة التقرير مباشرة بالكود AHMED SHARAF 1 263 24-09-17, 04:31 PM
آخر رد: wale90
  طباعة التقرير aftfm 7 461 18-05-17, 05:30 PM
آخر رد: alma2
  كود طباعة فاتورة مبيعات على طابعة EPSON LQ-300+ /II ESC/P 2 سيد درويش 2 4,642 27-11-16, 12:14 PM
آخر رد: hglogtd
  [Acces2007] طباعة التقرير في صفحتين محمد خلف زكي 2 655 12-09-16, 12:25 AM
آخر رد: adel2012
  طباعة السجل الحالي علي كعبي 19 1,769 23-06-16, 02:11 AM
آخر رد: علي كعبي

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


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