[asto]

السلام عليكم

اطلب تعديل هذا الكود لطباعة عنصر معين فقط في الفورم و هو picture2

كود :

Set Picture1.Picture = CaptureClient(Me(

CommonDialog1.CancelError = True

On Error GoTo Exitsub

   CommonDialog1.ShowPrinter

   Call PrintPictureToFitPage(Printer, Picture1.Picture)

Printer.EndDoc

   Exit Sub

Exitsub:

Exit Sub

[تركي الحلواني]

وعليكم السلام ورحمة الله وبركاتة

لما يأخي لا تستخدم التقرير لطباعة الصورة

او تقوم بفتحة بأستخدام برنامج ويندوز من الفجوال وتقوم بطباعتها

[asto]

لان هذا يا اخي برنامجي يولد باركود و اريد طباعته

[أبو عمر]

في حدث كود الطباعة


Printer.PaintPicture Picture1.Picture, 0, 0, _
Picture1.Width, Picture1.Height

Printer.EndDoc