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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طباعة تقرير ال crystal report مباشرة الى الطابعة دون فتحة - تم الحل Rabeea Qbaha 0 42 19-04-19, 09:52 PM
آخر رد: Rabeea Qbaha
  [VB.NET] طباعة الداتا كريت فيو EMADSSS 1 78 07-04-19, 08:24 PM
آخر رد: elgokr
  [VB.NET] طباعة الداتا كريت EMADMW17 2 113 06-04-19, 06:29 PM
آخر رد: عبد العزيز البسكري
  تحديد الوقت بالظبط عند طباعة الفاتورة - كريستال ريبورت mostafa nada 1 134 01-03-19, 04:17 PM
آخر رد: elgokr
  [سؤال] طباعة rdlc esmat369 0 146 13-02-19, 03:42 PM
آخر رد: esmat369
  طلب مساعدة ،، إظهار نافذة Report Data لتقرير مايكروسوفت Report Viewer nrkarat 3 223 23-01-19, 02:28 PM
آخر رد: elgokr
  تساؤل حول طباعة الريبورت فيور عبد العزيز البسكري 9 363 24-12-18, 07:12 AM
آخر رد: حريف برمجة
  طباعة كل سجل في صفحة منفصلة فانتسي ارت 6 1,549 20-12-18, 03:49 AM
آخر رد: elgokr
  طباعة بيانات من عدّة جداول عبد العزيز البسكري 1 297 09-12-18, 03:01 PM
آخر رد: عبد العزيز البسكري
  [سؤال] طريقة طباعة دفاتر صكوك مصرفية الزوي 0 424 14-07-18, 05:02 PM
آخر رد: الزوي

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


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