نحوه چاپ کردن یک فرم روی کاغذ A5

[bahram14]

با سلام خدمت تمامی دوستان
من با vb 2010 یه برنامه نوشتم می خواستم بدونم برای پرینت کردن فرمی که طراحی کردم از چه دستوری استفاده کنم باتشکر

[erfan_urchin]

سلام
شما اول کنترل PrintDocument رو اضافه کن به فرمی که میخوای پرینت بگیری ازش بعد از کد زیر استفاده کن
Private Sub printDocument1_PrintPage(sender As Object, e As System.Drawing.Printing.PrintPageEventArgs)
Dim bm As New Bitmap(Width, Height)
Me.DrawToBitmap(bm, New Rectangle(0, 0, Me.Width, Me.Height))
e.Graphics.DrawImage(bm, 20, 20)
' 20,20 مقدار فاصله ای هستش که توی برگه از بالا و از چپ میندازه، و هرجور صلاح بدونی میتونی تغییرش بدی
End Sub


Private Sub button1_Click(sender As Object, e As EventArgs)
printDocument1.Print()
End Sub

[icedavood]

سلام دوست عزیز
کنترل های زیر وارد برنامه شود:
PrintDocument
PrintPreviewDialog
Button

در رویداد Button قطعه کد زیر را وارد کنید:



For i = 0 To PrintDocument1.DefaultPageSettings.PrinterSettings .PaperSizes.Count - 1
If PrintDocument1.DefaultPageSettings.PrinterSettings .PaperSizes.Item(i).Kind = System.Drawing.Printing.PaperKind.A5 Then
PrintDocument1.DefaultPageSettings.PaperSize = PrintDocument1.DefaultPageSettings.PrinterSettings .PaperSizes.Item(i)
Exit For
End If
Next


Dim margins As New System.Drawing.Printing.Margins(35, 1, 35, 1)
PrintDocument1.DefaultPageSettings.Margins = margins
PrintDocument1.OriginAtMargins = True


'PrintDocument1.PrinterSettings.DefaultPageSetting s.PaperSize = New System.Drawing.Printing.PaperSize("A5", 583, 827)
PrintPreviewDialog1.ShowDialog()





جهت نوشتن یا رسم شکل در برنامه از کد های زیر در رویداد printDocument1_PrintPage استفاده کنید:

e.Graphics.DrawString
e.Graphics.DrawRectangle
e.Graphics.DrawImage

[h.gheidrlou]

دوست عزیز
من میخوام متن یک تکست باکس یا ریچ تکست باکس که چندین خط نوشته است را با کد های زیر در صفحه ای چاپ بگیرم به نحوی که هر تکستی در یک مستطیل قراربگیره یعنی ابتدا مستطیل ترسیم و سپس متن یک تکست باکس توش نوشته بشه
خیلی تلاش کردم نمیشه
ترسیم انجام میشه ولی قابل نمایش و چاپ نیست لطفا کمکم کنید