تقييم الموضوع :
  • 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
السلام عليكم

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 173 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  [سؤال] سوال؟ عن طباعة الورقة عرض(التقرير) amer2000 21 485 15-09-16, 10:00 PM
آخر رد: Amir_alzubidy
  تغيير ارتفاع وعرض الفورم fadhely 0 181 04-05-16, 07:34 AM
آخر رد: fadhely
  طباعة الفورم على الورق fadhely 2 356 02-05-16, 08:00 AM
آخر رد: fadhely
  [سؤال] طباعة التقرير بعدد معين ABO.BANCIANA 5 293 04-03-16, 09:52 PM
آخر رد: ahmedabdelaliem
  تغيير حجم الادوات مع تغيير حجم الفورم ناصر56 3 822 06-01-16, 12:31 AM
آخر رد: awidan76
  إظهار الفورم في موقع محدد من الشاشة MEA 5 772 06-01-16, 12:22 AM
آخر رد: awidan76
  وضع علامة ونص على الصورة وحفظها بعد التعديل أبو عمر 4 274 03-10-15, 02:24 PM
آخر رد: أبو عمر
  مساعدة في كتابة كود يتم من خلاله طباعة الفورم عدد معين من المرات نصر صالح 2 553 20-12-14, 10:03 PM
آخر رد: Ahmed_Mansoor
Sad [سؤال] سؤال صغير في فيجوال بيسك 6 تحريك الفورم Hell Cell 2 697 17-12-14, 10:52 PM
آخر رد: Hell Cell

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


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