كود لطباعة PictureBox بما فيها من أدوات

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

default كود لطباعة PictureBox بما فيها من أدوات

مُساهمة من طرف iemad في الإثنين أكتوبر 23, 2006 10:58 pm

السلام عليكم
هذه أول مشاركة لي وأرجوا أن تنال أعجابكم
أولا نضع الكود التالي داخل Modul


API Declarations


الرمز:

Option Explicit

Private Declare Function SendMessage Lib "user32.dll" Alias _
  "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
  ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_PAINT = &HF
Private Const WM_PRINT = &H317
Private Const PRF_CLIENT = &H4&    ' Draw the window's client area
Private Const PRF_CHILDREN = &H10& ' Draw all visible child
Private Const PRF_OWNED = &H20&    ' Draw all owned windows
 




Public Sub PrintPictureBox(Box As PictureBox, _
                        Optional X As Single = 0, _
                        Optional Y As Single = 0)
Dim rv As Long
Dim ar As Boolean
 
    On Error GoTo Exit_Sub
 
    With Box
        'Save ReDraw value
        ar = .AutoRedraw
 
        'Set persistance
        .AutoRedraw = True
   
        'Wake up printer
        Printer.Print
   
        'Draw controls to picture box
        rv = SendMessage(.hwnd, WM_PAINT, .hDC, 0)
        rv = SendMessage(.hwnd, WM_PRINT, .hDC, _
            PRF_CHILDREN Or PRF_CLIENT Or PRF_OWNED)
   
        'Refresh image to picture property
        .Picture = .Image
   
        'Copy picture to Printer
        Printer.PaintPicture .Picture, X, Y
        Printer.EndDoc
   
        'Restore backcolor  (Re-load picture if picture was used)
        Box.Line (0, 0)-(.ScaleWidth, .ScaleHeight), .BackColor, BF
   
        'Restore ReDraw
        .AutoRedraw = ar
    End With
 
Exit_Sub:
    If Err.Number Then MsgBox Err.Description, vbOKOnly, "Printer Error!"
 
End Sub

ولأستعمال الكود السابق ضع زر أمر على الفورم وضع الكود التالي داخله


الرمز:

Private Sub Command1_Click()
    PrintPictureBox Picture1, 1000, 1000
End Sub


عدل سابقا من قبل في الخميس نوفمبر 23, 2006 7:53 pm عدل 1 مرات

iemad
مراقب عام
مراقب عام

عدد الرسائل : 20
تاريخ التسجيل : 23/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: كود لطباعة PictureBox بما فيها من أدوات

مُساهمة من طرف Admin في الإثنين أكتوبر 23, 2006 11:22 pm

احسنت اخي عماد هذا هو التعاون المطلوب

Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: كود لطباعة PictureBox بما فيها من أدوات

مُساهمة من طرف Question في الإثنين أكتوبر 23, 2006 11:24 pm

شكراُ اخي
Shocked عن جد كود جميل
ننتظر إبداعات أخرى

Question
عضو جديد
عضو جديد

عدد الرسائل : 2
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: كود لطباعة PictureBox بما فيها من أدوات

مُساهمة من طرف memouz في الخميس نوفمبر 23, 2006 8:17 am

بارك الله بك أخي و الله انك ابن حلال هذا ما كنت ابحث عنه
جزاك الله خيرا

memouz
عضو
عضو

عدد الرسائل : 5
تاريخ التسجيل : 23/11/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default شكرا لكم جميعا على ردودكم

مُساهمة من طرف iemad في الخميس نوفمبر 23, 2006 7:59 pm

ننتظر وأياكم المزيد من الأبداعات المتميزة من أعضاء المنتدى Very Happy

iemad
مراقب عام
مراقب عام

عدد الرسائل : 20
تاريخ التسجيل : 23/10/2006

معاينة صفحة البيانات الشخصي للعضو

الرجوع الى أعلى الصفحة اذهب الى الأسفل

default رد: كود لطباعة PictureBox بما فيها من أدوات

مُساهمة من طرف Admin في الجمعة نوفمبر 24, 2006 8:43 pm

طبعاً اخواني يوجد هذا الامر لطباعة كل ما على الفورم عن طريق الطابعة
Me.PrintForm

_________________
إذا أعجبك موضوع من مواضيعي فلا تقل شكـراً ...
بل قل الآتـي ::
اللهم اغفر له ولوالديه ولزوجته وابنائه ولأخوانه واخواته ولسائر المسلمين ماتقدم من ذنبهم وما تأخر..
وقِهم عذاب القبر وعذاب النار..
و أدخلهم الفردوس الأعلى مع الأنبياء والشهداء والصالحين ..
واجعل دعاءهم مستجاب في الدنيا والآخرة ..
اللـهم آميـن..اللـهم آميـن..اللـهم آميـن..

اخوكم جاد القرعان
الأردن- الطفيلة
jadquraan@yahoo.com
jad_quraansoft@hotmail.com
00962777765709

Admin
jadquraan
jadquraan

عدد الرسائل : 125
العمر : 34
تاريخ التسجيل : 19/10/2006

معاينة صفحة البيانات الشخصي للعضو http://jad4vb.lightbb.com

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى