]چاپ محتويات فرم

[vz67]

با سلام
مي خوام اطلاعات روي فرم رو بفرستم براي چاپ ، حالا چيكار كنم !؟!؟
با API هم نبايد باشه (اين رو من نميگم ها ، دبيرمون گفته )
مثل اينكه از فرم عكس گرفتم و فرستادم براي چاپ ( تو همين مايه ها )

[Di Di]

تو وي بي كه Print Me‌ داشتيم كار مي كرد نمي دونم دانت نت يعني نداره از اينا؟؟

[vz67]

تو وي بي دات نت اصلا مي گي print بي print
اساتيد !

[vz67]

خيلي ممنون از كمك دوستان
مثل اينكه طرفدارهاي VB.NET در حد صفر هستند
البته شايد هم به خاطر امتحانات پايان ترم باشه ، به هر حال ...
خودم كدش رو پيدا كردم و ميزارم تا دوستان بعد از من نياز به گشتن نداشته باشن

کد:

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim a As New Bitmap(Me.Width, Me.Height, Imaging.PixelFormat.Format4bppIndexed)
        Me.DrawToBitmap(a, New Rectangle(0, 0, Me.Width, Me.Height))
        e.Graphics.DrawImage(a, 10, 10)
    End Sub

[lord_viper]

جناب vz67 این کد میتونه به شما کمک کنه

کد:

PublicClass Form1
FriendWithEvents TXTBox1 AsNew TextBox
FriendWithEvents PrintForm1 As Microsoft.VisualBasic.PowerPacks.Printing.PrintForm
FriendWithEvents BTN AsNew Button
PrivateSub btn_Click(ByVal a AsObject, ByVal b As System.EventArgs) Handles BTN.Click
PrintForm1.Print()
EndSub

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Me.PrintForm1 = New Microsoft.VisualBasic.PowerPacks.Printing.PrintForm(Me.components)
Me.PrintForm1.DocumentName = "document"

Me.PrintForm1.Form = Me

Me.PrintForm1.PrintAction = System.Drawing.Printing.PrintAction.PrintToPrinter
Me.PrintForm1.PrintFileName = Nothing

'Design New Text Box To Form

TXTBox1.Multiline = True

TXTBox1.Left = 10
TXTBox1.Top = 10
TXTBox1.Height = Me.Height - 20
TXTBox1.Width = Me.Width - 20
TXTBox1.Text = "This is Sample Code For Test Print Form " & vbCrLf & "Designer : -_- MHM (Ict_Boy_2005@yahoo.com)" & _
vbCrLf & "Publisher WWW.BarnameNevis.ORG"

Me.Controls.Add(TXTBox1)
'Design new Button to form

Me.Height += 100
BTN.Left = 0
BTN.Width = Me.Width
BTN.Top = TXTBox1.Top + TXTBox1.Height
Me.Controls.Add(BTN)
BTN.Height = 100
BTN.Text = "Do Print"

EndSub
EndClass