ممكن شرح الكود الحالي

Public Shared Sub Print_DataGridView(ByVal dgv1 As DataGridView)

Dim ppvw As PrintPreviewDialog

Try

' لطباعة الداتا جريد

dgv = dgv1

''''dgv1 هو باراميتر تم تمريره لهذه الاجرائية

' تسميات الاعمد بداخل الداتاجريد

AvailableColumns.Clear() ''''' هذه مصفوفة يتم وضع القيم المراد طباعتها فيها مؤقتا

For Each c As DataGridViewColumn In dgv.Columns '''''حلقة For على جميع أعمدة ال datagrid

If Not c.Visible Then Continue For ''''''يقوم بالتأكد من أن العمود ظاهر و ليس مخفي

AvailableColumns.Add(c.HeaderText) ''''''إذا كان العمود ظاهرا يتم إضافة اسمه إلى المصفوفة المؤقتة

Next

' عرض فورم الطباعة

Dim dlg As New PrintOptions(AvailableColumns)

If dlg.ShowDialog() <> DialogResult.OK Then Exit Sub ''''''إظهار مربع حوار الطباعة

'طباعة بعض الصفحات

'''''' يتم تمرير الإعدادات إلى مربع الحوار

PrintTitle = dlg.PrintTitle

PrintAllRows = dlg.PrintAllRows

FitToPageWidth = dlg.FitToPageWidth

SelectedColumns = dlg.GetSelectedColumns

RowsPerPage = 0

ppvw = New PrintPreviewDialog

ppvw.Document = PrintDoc

' عرض صفحة الطباعة

If ppvw.ShowDialog() <> DialogResult.OK Then Exit Sub

' طباعة المستند

PrintDoc.Print()

Catch ex As Exception

MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

Finally

End Try

End Sub