学习型 ASP/PHP/ASP.NET 主机 30元/年全能 ASP/PHP/ASP.NET 主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付
发新话题
打印

vb.net控制直接打印程序

本主题由 静夜思 于 2008-3-12 14:32 拒绝承认原创

vb.net控制直接打印程序

Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As Printing.PrintPageEventArgs)
        'Dim leftMargin As Single = ev.MarginBounds.Left
        Dim line1 As String = Trim(TextBox6.Text).Substring(0, 14)
        Dim line2 As String = TextBox6.Text.ToString.Substring(14, 5)
        ev.Graphics.DrawString(TextBox1.Text, printFont, Brushes.Black, xPos, yPos + 25, New StringFormat())
        ev.Graphics.DrawString(TextBox2.Text + TextBox8.Text, printFont, Brushes.Black, xPos, yPos + 65, New StringFormat())
        ev.Graphics.DrawString(TextBox3.Text + TextBox7.Text, printFont, Brushes.Black, xPos, yPos + 110, New StringFormat())
        ev.Graphics.DrawString(TextBox4.Text, printFont, Brushes.Black, xPos, yPos + 155, New StringFormat())
        ev.Graphics.DrawString(TextBox5.Text, printFont, Brushes.Black, xPos, yPos + 200, New StringFormat())
        ev.Graphics.DrawString(line1, printFont, Brushes.Black, xPos + 50, yPos + 240, New StringFormat())
        ev.Graphics.DrawString(line2, printFont, Brushes.Black, xPos - 70, yPos + 270, New StringFormat())
        ' Indicate that this is the last page to print.
        ev.HasMorePages = False
    End Sub

TOP

可不可以解释一下句子的意思,我是新手,有些看不明白!谢谢!

TOP

发新话题