السادة الكرام
السلام عليكم ورحمة وبركاتة
كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟
نامل من الله ثم منكم المساعدة العاجلة والله يحفظكة ويرعاكم
وعليكم السلام ورحمة الله وبركاته
تفضل
PHP كود :
Private Sub Command1_Click()
Printer.PaintPicture Me.Picture, 0, 0, _
Me.Picture.Width, Me.Picture.Height
Printer.EndDoc
End Sub
بالتوفيق
softmail8 كتب :السادة الكرام
السلام عليكم ورحمة وبركاتة
كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟
نامل من الله ثم منكم المساعدة العاجلة والله يحفظكة ويرعاكم
---------------------------------------------------------------
استاذي العزيز
السلام عليكم ورحمة وبركاتة
هناك حطاء في الكود يحصل عندما يتم اضغط على زر امر طباعة!!؟؟
نامل من الله ثم منكم الاطلاع على المرفق والله يحفظكم ويرعاكم
السلام عليكم
لازم تضيف الكنترول 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
وعليكم السلام ورحمة الله وبركاته
اخي انت قلت ان الصورة على سطح الفورم ولم تقل انها باداة Image
عموما استخدم الكود التالي
PHP كود :
Private Sub Command1_Click()
Printer.PaintPicture Image1.Picture, 0, 0, _
Image1.Picture.Width, Image1.Picture.Height
Printer.EndDoc
End Sub
بالتوفيق
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
استاذي العزيز
السلام عليكم ورحمة وبركاتة
ظهر لي الرساله المرفقة هل يوجد حل؟؟
استاذي العزيز
السلام عليكم ورحمة وبركاتة
لم نجح معي الكود مع الاسف ؟؟
ولكم مني فائق الشكر والتقدير على ما تقدمة لنا من عدم فني والله يحفظكم ويرعاكم
السلام عليكم
الرسالة تقول الرسالة غير صالحة يعني احتمال مافي صورة
السطر Printer.PaintPicture Me.Image1.Picture, 0, 0 يطبع الصورة الي في image1
والسطر Printer.PaintPicture Me.Picture, 0, 0 يطبع الصورة على سطح الفورم
لازم تعرف الصورة فين وتعدل
السلام عليكم
ولا تنسا لك مثال عن الماسح في موضوعك عن الماسح