حفظ وطباعة ال PictureBox والعناصر الموجودة ضمنها

السلام عليكم

يوجد امر اسمه PaintPicture وهو يستعمل لمثل هذه الحالات

حيث يقوم بتحديد جز معين من الصورة رقم 1 ونقله الي الصورة رقم 2 وبذلك تتمكن من طباعة الصورة رقم 2 والتي تحتوي الجزء المراد طباعته

سوف ارفق مثال قريبا جدا

شكرا لك يا أخي العزيز على الرد السريع...

Printer.PaintPicture picture, x1, y1, width1, height1, x2, y2, width2, height2, opcode

PaintPicture تقوم بطباعة جزء من صورة وذلك بتحديد x2, y2, width2, height2

*********************************

الكود التالي يقوم برسم محتويات الـ PictureBox واسنادها كصورة ضمن الـ PictureBox واقتطاع جزء من الصورة ثم طباعته

Public Sub PrintPictureBox(Box As PictureBox, NumCopies As Byte, PrntX2 As Single, _
                    PrntY2 As Single, PrntWidth2 As Single, PrntHeight2 As Single, _
                    Optional prnPaperSize As PrinterObjectConstants = vbPRPSA4, _
                    Optional x As Single = 0, Optional y As Single = 0)
                    
Dim rv As Long
Dim ar As Boolean

Dim ZoomPercH As Single, ZoomPercW As Single
Dim prnWidth As Single, prnHeight As Single

On Error GoTo Exit_Sub
  
With Box
    'Save ReDraw value
    ar = .AutoRedraw
    
    'Set persistance
    .AutoRedraw = True

    Printer.PrintQuality = vbPRPQHigh
    Printer.Copies = NumCopies
    Printer.orientation = vbPRORLandscape
    Printer.PaperSize = prnPaperSize
        
        
    '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

    ZoomPercH = (Printer.height / .height) - 1.2
    ZoomPercW = (Printer.width / .width) - 1.2
    If ZoomPercH < ZoomPercW Then
        prnHeight = .height * ZoomPercH
        prnWidth = .width * ZoomPercH
    Else
        prnHeight = .height * ZoomPercW
        prnWidth = .width * ZoomPercW
    End If

    'Copy picture to Printer
    Printer.PaintPicture .Picture, x, y, prnWidth, prnHeight, PrntX2, PrntY2, PrntWidth2, PrntHeight2
    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

ولكن المشكلة هي أن الكود السابق يقوم برسم المحتويات الظاهرة ضمن PictureBox

بمعنى آخر:

ضمن الPictureBox يوجد Image يتم تحميل الصورة عليها، ولكن حجم الصورة كبير وخاصية Stretch هي False وبالتالي فإن جزء من هذه الصورة سوف يكون مرئي

وباستعمال الكود السابق سوف يتم طباعة الجزء المرئي من الصورة فقط

فهل من حل لهذه المشكلة؟؟؟؟؟؟؟؟