Private Sub prndoc_PrintPage(ByVal sender As Object, ByVal e As Drawing.Printing.PrintPageEventArgs) Handles prndoc.PrintPage
Dim fnt As String = "Courier New"
e.Graphics.DrawString("Test print ", New Font(fnt,8, FontStyle.Bold), Brushes.Black, 5, 10)
End Sub
Private Sub PrintDetail()
prndoc = New PrintDocument
prndoc.Print()
End Sub
Tag : .NET, Web (ASP.NET), Win (Windows App), VB.NET
Load balance : Server 00
