打印控件示例

最新推荐文章于 2024-11-23 14:18:24 发布
原创最新推荐文章于 2024-11-23 14:18:24 发布
· 97 阅读
0 ·
版权
文章标签：
#VB.Net #vb #vb2012 #visual basic #C# #asp.net #ASP.NET
Public Class Form1

    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim f As Font = New Font("宋体", 12)
        Dim b As Brush = Brushes.Black
        e.Graphics.DrawString(Me.textBox1.Text, f, b, Me.textBox1.Location.X, Me.textBox1.Location.Y)
        e.Graphics.DrawString(Me.TextBox2.Text, f, b, Me.TextBox2.Location.X, Me.TextBox2.Location.Y)
        e.Graphics.DrawString(Me.TextBox3.Text, f, b, Me.TextBox3.Location.X, Me.TextBox3.Location.Y)
        e.Graphics.DrawString(Me.TextBox4.Text, f, b, Me.TextBox4.Location.X, Me.TextBox4.Location.Y)
        e.Graphics.DrawString(Me.TextBox5.Text, f, b, Me.TextBox5.Location.X, Me.TextBox5.Location.Y)
        e.Graphics.DrawString(Me.TextBox6.Text, f, b, Me.TextBox6.Location.X, Me.TextBox6.Location.Y)
        e.Graphics.DrawString(Me.TextBox7.Text, f, b, Me.TextBox7.Location.X, Me.TextBox7.Location.Y)
        e.Graphics.DrawString(Me.TextBox8.Text, f, b, Me.TextBox8.Location.X, Me.TextBox8.Location.Y)
        e.Graphics.DrawString(Me.TextBox9.Text, f, b, Me.TextBox9.Location.X, Me.TextBox9.Location.Y)
        e.Graphics.DrawString(Me.TextBox10.Text, f, b, Me.TextBox10.Location.X, Me.TextBox10.Location.Y)
        e.Graphics.DrawString(Me.TextBox11.Text, f, b, Me.TextBox11.Location.X, Me.TextBox11.Location.Y)
        e.Graphics.DrawString(Me.TextBox12.Text, f, b, Me.TextBox12.Location.X, Me.TextBox12.Location.Y)
        e.Graphics.DrawString(Me.TextBox13.Text, f, b, Me.TextBox13.Location.X, Me.TextBox13.Location.Y)
        e.Graphics.DrawString(Me.TextBox14.Text, f, b, Me.TextBox14.Location.X, Me.TextBox14.Location.Y)
        e.Graphics.DrawString(Me.TextBox15.Text, f, b, Me.TextBox15.Location.X, Me.TextBox15.Location.Y)
        e.Graphics.DrawString(Me.TextBox16.Text, f, b, Me.TextBox16.Location.X, Me.TextBox16.Location.Y)
        e.Graphics.DrawString(Me.TextBox17.Text, f, b, Me.TextBox17.Location.X, Me.TextBox17.Location.Y)
        e.Graphics.DrawString(Me.TextBox18.Text, f, b, Me.TextBox18.Location.X, Me.TextBox18.Location.Y)
        e.Graphics.DrawString(Me.TextBox19.Text, f, b, Me.TextBox19.Location.X, Me.TextBox19.Location.Y)
        e.Graphics.DrawString(Me.TextBox20.Text, f, b, Me.TextBox20.Location.X, Me.TextBox20.Location.Y)
        e.Graphics.DrawString(Me.TextBox21.Text, f, b, Me.TextBox21.Location.X, Me.TextBox21.Location.Y)
        e.Graphics.DrawString(Me.TextBox22.Text, f, b, Me.TextBox22.Location.X, Me.TextBox22.Location.Y)
        e.Graphics.DrawString(Me.TextBox23.Text, f, b, Me.TextBox23.Location.X, Me.TextBox23.Location.Y)
        e.Graphics.DrawString(Me.TextBox24.Text, f, b, Me.TextBox24.Location.X, Me.TextBox24.Location.Y)
        e.Graphics.DrawString(Me.TextBox25.Text, f, b, Me.TextBox25.Location.X, Me.TextBox25.Location.Y)
        e.Graphics.DrawString(Me.TextBox26.Text, f, b, Me.TextBox26.Location.X, Me.TextBox26.Location.Y)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.PrintPreviewDialog1.Document = Me.PrintDocument1
        Me.PrintPreviewDialog1.ShowDialog()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Me.PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.PrintDocument1.Print()
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.TextBox26.Text = Val(Me.TextBox11.Text) + Val(Me.TextBox13.Text) + Val(Me.TextBox15.Text) + Val(Me.TextBox17.Text) + Val(Me.TextBox19.Text) + Val(Me.TextBox21.Text) + Val(Me.TextBox23.Text)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class