منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

اطلب تعديل هذا الكود لطباعة عنصر معين فقط في الفورم و هو 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

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

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

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

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

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

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

Printer.EndDoc

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

asto

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

asto

أبو عمر