كود لطباعة 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

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

عدد الرسائل : 125
العمر : 35
تاريخ التسجيل : 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
avatar
Admin
jadquraan
jadquraan

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

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

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

الرجوع الى أعلى الصفحة


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