تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[تم الحل] طباعة ما بداخل Tap Page
#1
السلام عليكم ورحمة الله وبركاته

اخواني انا عندي كود طباعة ما بداخل اداة Tap Page وهو :


كود :
هنا امر زر بوتون

            Dim Print As New PrintPreviewDialog
            Print.Document = New Printing.PrintDocument
            Print.Document.DefaultPageSettings.Landscape = True
            AddHandler Print.Document.PrintPage, AddressOf PrintDocument
            Print.ShowDialog()

        Catch ex As Exception
            MessageBox.Show(ex.Message.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try
    End Sub





هنا الدالة التعريفية

    Public Sub PrintDocument(ByVal obj As Object, ByVal ev As Printing.PrintPageEventArgs)
        Dim Img As New Bitmap(TabPage4.Width, TabPage4.Height)
        TabPage4.DrawToBitmap(Img, New Rectangle(5, 5, TabPage4.Width, TabPage4.Height))
        ev.Graphics.DrawImage(Img, New Point(0, 0))
    End Sub

[COLOR="#FF0000"]

لكنه لا يطبع بخيارات ... يعني انا اقصد انه عند طباعاتي يقوم باخذ مساحة صغيرة من الصفحة ولا يعطيني خيارات لتحديد نوع الورقه وتغيير شكل الطباعه وهذه صورة لما حصل لي .... اضغط هنااااااا ... فهل يوجد كود اخر او تعديلا آخرى مناسبه[/COLOR] :confused: :confused: :confused:
}}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

إذا بدك تطلعلك الخيارات بدل السطر الأول بهذا الأمر :
كود :
Dim Print As New [color=#ff0000]PrintDialog[/color]
}}}}
تم الشكر بواسطة:
#3
Osama_Ghareeb كتب :وعليكم السلام ورحمة الله وبركاته

إذا بدك تطلعلك الخيارات بدل السطر الأول بهذا الأمر :
كود :
Dim Print As New [color=#ff0000]PrintDialog[/color]

[COLOR="#0000FF"]اخي انا قد جربته هذا الامر ويظهر لي لكن لا يطبع ما السبب ؟؟
[/COLOR]
}}}}
تم الشكر بواسطة:
#4
اخي انا قد جربته هذا الامر ويظهر لي نافذة الطباعة لكن لا يطبع ما السبب ؟؟
}}}}
تم الشكر بواسطة:
#5
هل من حل ؟
}}}}
تم الشكر بواسطة:
#6
لا أعلم لم أجرب الطباعة بهذه الطريقة من قبل
}}}}
تم الشكر بواسطة:
#7
Osama_Ghareeb كتب :لا أعلم لم أجرب الطباعة بهذه الطريقة من قبل

هل من طريقة اخرى ...
}}}}
تم الشكر بواسطة:
#8
هل من طريقة لطباعه Tap page بضهور الخيارات
}}}}
تم الشكر بواسطة:
#9
انظر هذا المثال


الملفات المرفقة
.rar   PrintTab.rar (الحجم : 59.91 ك ب / التحميلات : 44)
}}}}
تم الشكر بواسطة:
#10
amgadtamer كتب :انظر هذا المثال

اخي انت قليلة فيك كلمة مبدع ... هو ذا المطلوب ... الله يعطيك العافية
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow طريقة عمل حضور وانصراف يتجدد يوميًا+طباعة سجلات الحضور والانصراف فاطمة غ 1 49 منذ 5 ساعة مضت
آخر رد: فاطمة غ
  [VB.NET] كيفية طباعة شهادات بصيغة PDF Programmer_2017 9 257 10-11-16, 10:02 PM
آخر رد: Programmer_2017
  طباعة الفورم rabeh.ram 7 194 27-10-16, 04:13 AM
آخر رد: rabeh.ram
  مشكلة في هذا الكود كيف الحل abumuhannadzym 3 94 18-10-16, 12:45 AM
آخر رد: abumuhannadzym
  سؤال بخصوص طباعة تقرير في فيجوال بيسك 2010 haiderkh 2 103 12-10-16, 08:48 PM
آخر رد: أبو عمر
  [كود] ابي كود طباعة listview x7rBI 4 121 08-09-16, 03:14 PM
آخر رد: x7rBI
  [VB.NET] معرفة اسم الكاميرا المتصله بالحاسوب (Cam Device)(تم الحل ) ILI 1 102 04-08-16, 06:54 PM
آخر رد: ILI
  [VB.NET] طباعة تقرير مباشرة ReportViewer sniperjawadino 16 559 17-07-16, 04:10 AM
آخر رد: sniperjawadino
  [سؤال] السلام عليكم هل استطيع الحصول على كود في الفيجول بيزك 6 استطيع كتابة الحل المركب للمع hafezshaban 0 95 13-07-16, 02:21 AM
آخر رد: hafezshaban
Sad طباعة فاتورة Kian Tech 7 265 24-06-16, 10:26 PM
آخر رد: طالب 22

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


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