منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : [تم الحل] طباعة ما بداخل Tap Page
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

اخواني انا عندي كود طباعة ما بداخل اداة 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:
وعليكم السلام ورحمة الله وبركاته

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

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

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

هل من طريقة اخرى ...
هل من طريقة لطباعه Tap page بضهور الخيارات
انظر هذا المثال
amgadtamer كتب :انظر هذا المثال

اخي انت قليلة فيك كلمة مبدع ... هو ذا المطلوب ... الله يعطيك العافية