[softmail8]

VB6DAO كتب :السلام عليكم

اعجبني المنتدى

هذه اول مشاركة

لازم تضيف الكنترول CommonDialog

شوف هذا الكود لقيته وجربته يطبع الصورة اللي في image1

Private Sub Command1_Click()
StopPrinting = False
' Set CancelError is True
On Error GoTo errhandler

CommonDialog1.PrinterDefault = True
CommonDialog1.CancelError = True

' Set flags
CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
CommonDialog1.ShowPrinter

Printer.PaintPicture Me.Image1.Picture, 0, 0
Printer.EndDoc
Exit Sub
errhandler:
Select Case Err
Case 32755 ' Dialog Cancelled
MsgBox "you cancelled the dialog box"
Case Else
MsgBox "Unexpected error. Err " & Err & " : " & Error
End Select
End Sub

استاذي العزيز
السلام عليكم ورحمة وبركاتة
ظهر لي الرساله المرفقة هل يوجد حل؟؟