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

الصفحات : 1 2

اخواني انا احتاج الى مساعدة حول كيفية طباعة الفورم بحجم ورقة A4 جزاكم الله خير

كود :

Imports System.Drawing.Printing

Public Class Form1

    Dim WithEvents mPrintDocument As New PrintDocument

    Dim mPrintBitMap As Bitmap

    Private Sub m_PrintDocument_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles mPrintDocument.PrintPage

        ' Draw the image centered.

        Dim lWidth As Integer = e.MarginBounds.X + (e.MarginBounds.Width - mPrintBitMap.Width) \ 2

        Dim lHeight As Integer = e.MarginBounds.Y + (e.MarginBounds.Height - mPrintBitMap.Height) \ 2

        e.Graphics.DrawImage(mPrintBitMap, lWidth, lheight)

        ' There's only one page.

        e.HasMorePages = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ' Copy the form's image into a bitmap.

        mPrintBitMap = New Bitmap(Me.Width, Me.Width)

        Dim lRect As System.Drawing.Rectangle

        lRect.Width = Me.Width

        lRect.Height = Me.Width

        Me.DrawToBitmap(mPrintBitMap, lRect)

        ' Make a PrintDocument and print.

        mPrintDocument = New PrintDocument

        mPrintDocument.Print()

    End Sub

End Class

ليه ما تستخدم
الريبورت فيو.. سهل الاستخدام وراح تستمتع بالعمل به

(19-10-16, 07:58 PM)هاوي1995 كتب : [ -> ]ليه ما تستخدم
الريبورت فيو.. سهل الاستخدام وراح تستمتع بالعمل به

بالنسبة ل report viewer لا اعرف استعماله و كل الدروس التي راجعتها تتحدث عنه رفقة data base وفي برنامجي الذي انا اعمل عليه لاتوجد data base

(20-10-16, 12:13 AM)rabeh.ram كتب : [ -> ]بالنسبة ل report viewer لا اعرف استعماله و كل الدروس التي راجعتها تتحدث عنه رفقة data base وفي برنامجي الذي انا اعمل عليه لاتوجد data base

تستطيع استخدام Report viewer بدون قاعدة بيانات عن طريق استخدام الــ DataSet