+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [تم الحل] طباعة ما بداخل Tap Page (/showthread.php?tid=6704)
[تم الحل] طباعة ما بداخل Tap Page - shado1796 - 27-10-12
السلام عليكم ورحمة الله وبركاته
اخواني انا عندي كود طباعة ما بداخل اداة Tap Page وهو :
[COLOR="#FF0000"]
لكنه لا يطبع بخيارات ... يعني انا اقصد انه عند طباعاتي يقوم باخذ مساحة صغيرة من الصفحة ولا يعطيني خيارات لتحديد نوع الورقه وتغيير شكل الطباعه وهذه صورة لما حصل لي .... اضغط هنااااااا ... فهل يوجد كود اخر او تعديلا آخرى مناسبه[/COLOR] :confused: :confused: :confused:
اخواني انا عندي كود طباعة ما بداخل اداة 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:
[تم الحل] طباعة ما بداخل Tap Page - Osama_Ghareeb - 27-10-12
وعليكم السلام ورحمة الله وبركاته
إذا بدك تطلعلك الخيارات بدل السطر الأول بهذا الأمر :
كود :
Dim Print As New [color=#ff0000]PrintDialog[/color][تم الحل] طباعة ما بداخل Tap Page - shado1796 - 27-10-12
Osama_Ghareeb كتب :وعليكم السلام ورحمة الله وبركاته
إذا بدك تطلعلك الخيارات بدل السطر الأول بهذا الأمر :
كود :
Dim Print As New [color=#ff0000]PrintDialog[/color]
[COLOR="#0000FF"]اخي انا قد جربته هذا الامر ويظهر لي لكن لا يطبع ما السبب ؟؟
[/COLOR]
[تم الحل] طباعة ما بداخل Tap Page - shado1796 - 28-10-12
اخي انا قد جربته هذا الامر ويظهر لي نافذة الطباعة لكن لا يطبع ما السبب ؟؟
[تم الحل] طباعة ما بداخل Tap Page - shado1796 - 28-10-12
هل من حل ؟
[تم الحل] طباعة ما بداخل Tap Page - Osama_Ghareeb - 28-10-12
لا أعلم لم أجرب الطباعة بهذه الطريقة من قبل
[تم الحل] طباعة ما بداخل Tap Page - shado1796 - 28-10-12
Osama_Ghareeb كتب :لا أعلم لم أجرب الطباعة بهذه الطريقة من قبل
هل من طريقة اخرى ...
[تم الحل] طباعة ما بداخل Tap Page - shado1796 - 29-10-12
هل من طريقة لطباعه Tap page بضهور الخيارات
[تم الحل] طباعة ما بداخل Tap Page - amgadtamer - 29-10-12
انظر هذا المثال
[تم الحل] طباعة ما بداخل Tap Page - shado1796 - 29-10-12
amgadtamer كتب :انظر هذا المثال
اخي انت قليلة فيك كلمة مبدع ... هو ذا المطلوب ... الله يعطيك العافية