منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ (/showthread.php?tid=8507)

كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - softmail8 - 16-04-13

السادة الكرام
السلام عليكم ورحمة وبركاتة
كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟
نامل من الله ثم منكم المساعدة العاجلة والله يحفظكة ويرعاكم

كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - ALBRNS - 16-04-13

وعليكم السلام ورحمة الله وبركاته

تفضل

PHP كود :
Private Sub Command1_Click()
Printer.PaintPicture Me.Picture, 0, 0, _
Me.Picture.Width, Me.Picture.Height
Printer.EndDoc
End Sub 

بالتوفيق

كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - softmail8 - 17-04-13

softmail8 كتب :السادة الكرام
السلام عليكم ورحمة وبركاتة
كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟
نامل من الله ثم منكم المساعدة العاجلة والله يحفظكة ويرعاكم
---------------------------------------------------------------
استاذي العزيز
السلام عليكم ورحمة وبركاتة
هناك حطاء في الكود يحصل عندما يتم اضغط على زر امر طباعة!!؟؟
نامل من الله ثم منكم الاطلاع على المرفق والله يحفظكم ويرعاكم

كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - VB6DAO - 17-04-13

السلام عليكم


لازم تضيف الكنترول 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


كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - ALBRNS - 17-04-13

وعليكم السلام ورحمة الله وبركاته

اخي انت قلت ان الصورة على سطح الفورم ولم تقل انها باداة Image

عموما استخدم الكود التالي

PHP كود :
Private Sub Command1_Click()
Printer.PaintPicture Image1.Picture, 0, 0, _
Image1.Picture.Width, Image1.Picture.Height
Printer.EndDoc
End Sub 

بالتوفيق

كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - softmail8 - 17-04-13

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

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

كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - softmail8 - 17-04-13

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

كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - VB6DAO - 17-04-13

السلام عليكم

الرسالة تقول الرسالة غير صالحة يعني احتمال مافي صورة

السطر Printer.PaintPicture Me.Image1.Picture, 0, 0 يطبع الصورة الي في image1
والسطر Printer.PaintPicture Me.Picture, 0, 0 يطبع الصورة على سطح الفورم

لازم تعرف الصورة فين وتعدل

كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟ - VB6DAO - 17-04-13

السلام عليكم

ولا تنسا لك مثال عن الماسح في موضوعك عن الماسح