تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟
#1
السادة الكرام
السلام عليكم ورحمة وبركاتة
كيف اطبع الصورة الموجودة على سطح الفوم بدون طباعة الفورم ؟؟
نامل من الله ثم منكم المساعدة العاجلة والله يحفظكة ويرعاكم
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

تفضل

PHP كود :
Private Sub Command1_Click()
Printer.PaintPicture Me.Picture00_
Me
.Picture.WidthMe.Picture.Height
Printer
.EndDoc
End Sub 

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


لازم تضيف الكنترول 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
الرد }}}
تم الشكر بواسطة:
#5
وعليكم السلام ورحمة الله وبركاته

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

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

PHP كود :
Private Sub Command1_Click()
Printer.PaintPicture Image1.Picture00_
Image1
.Picture.WidthImage1.Picture.Height
Printer
.EndDoc
End Sub 

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#6
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

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

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

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

لازم تعرف الصورة فين وتعدل
الرد }}}
تم الشكر بواسطة:
#9
السلام عليكم

ولا تنسا لك مثال عن الماسح في موضوعك عن الماسح
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في تغيير حجم الفورم حسب دقة عرض الشاشة amazonette 3 588 30-03-23, 02:47 PM
آخر رد: amazonette
  كيف يتم طباعة تقرير اكتف ريبورت مباشرة gonm64 1 1,400 03-02-22, 06:22 AM
آخر رد: Taha Okla
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 10 11,623 31-10-20, 01:00 AM
آخر رد: ryadd
  طباعة Frame فقط omarelking 9 4,978 05-10-20, 03:39 PM
آخر رد: alim54
  طباعة الفورم بأكملها على الورقة مهما كانت أبعادها اسلام الكبابى 6 5,978 09-06-20, 06:14 PM
آخر رد: شوشه
  تغيير اللغة في الفورم حامد محمد 7 4,059 22-01-19, 06:19 PM
آخر رد: elgokr
  [vb6.0] كيف طباعة فاتورة مبيعات من طابعة EPSON LQ-350 awidan76 1 2,567 20-11-18, 12:19 PM
آخر رد: awidan76
  [vb6.0] مساعدة في الفورم الثاني بالمشروع سمير الجبالي 3 2,431 17-07-18, 12:04 AM
آخر رد: سمير الجبالي
  حفظ الصورة في نفس مجلد البرنامج alfakeehy 2 2,250 22-03-18, 10:02 PM
آخر رد: سامى
  [vb6.0] كود طباعة عمور2016 5 3,146 13-03-18, 12:57 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم