كود طباعة

لدي data grid وأريد طباعتها وقد كتبت كودا ولكنه بمجرد الضغط على زر امر الطباعة تسحب الطابعة الورق بدون اي طباعة فأرجوا تصحيح هذا

الكود التاليPrivate Sub print_Click()

Dim DataGrid2 As String

'لجعل اتجاه الطباعة من اليمين الى اليسار

Printer.RightToLeft = True

Printer.Print DataGrid2

Printer.CurrentX = 100

Printer.CurrentY = 100

Printer.Print ""

Printer.EndDoc

End Sub