با سلام
مي خوام اطلاعات روي فرم رو بفرستم براي چاپ ، حالا چيكار كنم !؟!؟
با API هم نبايد باشه (اين رو من نميگم ها ، دبيرمون گفته )
مثل اينكه از فرم عكس گرفتم و فرستادم براي چاپ ( تو همين مايه ها )
تو وي بي كه Print Me داشتيم كار مي كرد نمي دونم دانت نت يعني نداره از اينا؟؟
تو وي بي دات نت اصلا مي گي print بي print
اساتيد !
خيلي ممنون از كمك دوستان
مثل اينكه طرفدارهاي 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
جناب 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