[ناجي إبراهيم]

السلام عليكم...

* احذف الكود المذكور سابقاً في الحدث Form_Load حيث نقلناه إلى هنا.

كود :

Private Sub Command1_Click()
    Dim OldMode As ScaleModeConstants
    Dim WidthPixels As Long
    Dim HeightPixels As Long
    
    ' هنا قم بإخفاء المكونات التي لا تريد إظهارها عند الطباعة
    
    With pbxImageHolder
        .ScaleMode = vbPixels
        .BorderStyle = 0
        .Width = Me.ScaleWidth
        .Height = Me.ScaleHeight
        .AutoRedraw = True
        .Visible = False
    End With
    
    Me.Refresh
    
    WidthPixels = Me.ScaleX(Me.ScaleWidth, Me.ScaleMode, vbPixels)
    HeightPixels = Me.ScaleY(Me.ScaleHeight, Me.ScaleMode, vbPixels)
    
    pbxImageHolder.Cls
    BitBlt pbxImageHolder.hDC, 0, 0, WidthPixels, HeightPixels, Me.hDC, 0, 0, SRCCOPY
    
    OldMode = Printer.ScaleMode
    Printer.ScaleMode = vbPixels
    Printer.Print "";
    Printer.PaintPicture pbxImageHolder.Image, 0, 0, Printer.ScaleWidth, Printer.ScaleHeight, 0, 0, WidthPixels, HeightPixels
    Printer.EndDoc
    Printer.ScaleMode = OldMode
End Sub

نرجو الاستفادة و السلام.