打印模板vb_vb打印一张单据的代码-优快云博客

本文链接：https://blog.youkuaiyun.com/www_oracle_com/article/details/143464352
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.TextBox15.Text = Val(Me.TextBox5.Text) + Val(Me.TextBox7.Text) + Val(Me.TextBox9.Text) + Val(Me.TextBox11.Text) + Val(Me.TextBox13.Text)
    End Sub

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

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

    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.TextBox1.Text, f, b, Me.TextBox1.Location.X + 250, Me.TextBox1.Location.Y)
        e.Graphics.DrawString(Me.TextBox1.Text, f, b, Me.TextBox1.Location.X + 550, Me.TextBox1.Location.Y)

        e.Graphics.DrawString(Me.TextBox2.Text, f, b, Me.TextBox2.Location.X, Me.TextBox2.Location.Y)
        e.Graphics.DrawString(Me.TextBox2.Text, f, b, Me.TextBox2.Location.X + 250, Me.TextBox2.Location.Y)
        e.Graphics.DrawString(Me.TextBox2.Text, f, b, Me.TextBox2.Location.X + 500, Me.TextBox2.Location.Y)

        e.Graphics.DrawString(Me.TextBox3.Text, f, b, Me.TextBox3.Location.X, Me.TextBox3.Location.Y)
        e.Graphics.DrawString(Me.TextBox3.Text, f, b, Me.TextBox3.Location.X + 220, Me.TextBox3.Location.Y)
        e.Graphics.DrawString(Me.TextBox3.Text, f, b, Me.TextBox3.Location.X + 500, Me.TextBox3.Location.Y)

        e.Graphics.DrawString(Me.TextBox4.Text, f, b, Me.TextBox4.Location.X, Me.TextBox4.Location.Y)
        e.Graphics.DrawString(Me.TextBox4.Text, f, b, Me.TextBox4.Location.X + 220, Me.TextBox4.Location.Y)
        e.Graphics.DrawString(Me.TextBox4.Text, f, b, Me.TextBox4.Location.X + 500, Me.TextBox4.Location.Y)

        e.Graphics.DrawString(Me.TextBox5.Text, f, b, Me.TextBox5.Location.X, Me.TextBox5.Location.Y)
        e.Graphics.DrawString(Me.TextBox5.Text, f, b, Me.TextBox5.Location.X + 220, Me.TextBox5.Location.Y)
        e.Graphics.DrawString(Me.TextBox5.Text, f, b, Me.TextBox5.Location.X + 500, Me.TextBox5.Location.Y)

        e.Graphics.DrawString(Me.TextBox6.Text, f, b, Me.TextBox6.Location.X, Me.TextBox6.Location.Y)
        e.Graphics.DrawString(Me.TextBox6.Text, f, b, Me.TextBox6.Location.X + 220, Me.TextBox6.Location.Y)
        e.Graphics.DrawString(Me.TextBox6.Text, f, b, Me.TextBox6.Location.X + 500, Me.TextBox6.Location.Y)

        e.Graphics.DrawString(Me.TextBox7.Text, f, b, Me.TextBox7.Location.X, Me.TextBox7.Location.Y)
        e.Graphics.DrawString(Me.TextBox7.Text, f, b, Me.TextBox7.Location.X + 220, Me.TextBox7.Location.Y)
        e.Graphics.DrawString(Me.TextBox7.Text, f, b, Me.TextBox7.Location.X + 500, Me.TextBox7.Location.Y)

        e.Graphics.DrawString(Me.TextBox8.Text, f, b, Me.TextBox8.Location.X, Me.TextBox8.Location.Y)
        e.Graphics.DrawString(Me.TextBox8.Text, f, b, Me.TextBox8.Location.X + 220, Me.TextBox8.Location.Y)
        e.Graphics.DrawString(Me.TextBox8.Text, f, b, Me.TextBox8.Location.X + 500, Me.TextBox8.Location.Y)

        e.Graphics.DrawString(Me.TextBox9.Text, f, b, Me.TextBox9.Location.X, Me.TextBox9.Location.Y)
        e.Graphics.DrawString(Me.TextBox9.Text, f, b, Me.TextBox9.Location.X + 220, Me.TextBox9.Location.Y)
        e.Graphics.DrawString(Me.TextBox9.Text, f, b, Me.TextBox9.Location.X + 500, Me.TextBox9.Location.Y)

        e.Graphics.DrawString(Me.TextBox10.Text, f, b, Me.TextBox10.Location.X, Me.TextBox10.Location.Y)
        e.Graphics.DrawString(Me.TextBox10.Text, f, b, Me.TextBox10.Location.X + 220, Me.TextBox10.Location.Y)
        e.Graphics.DrawString(Me.TextBox10.Text, f, b, Me.TextBox10.Location.X + 500, Me.TextBox11.Location.Y)

        e.Graphics.DrawString(Me.TextBox11.Text, f, b, Me.TextBox11.Location.X, Me.TextBox11.Location.Y)
        e.Graphics.DrawString(Me.TextBox11.Text, f, b, Me.TextBox11.Location.X + 220, Me.TextBox11.Location.Y)
        e.Graphics.DrawString(Me.TextBox11.Text, f, b, Me.TextBox11.Location.X + 500, Me.TextBox11.Location.Y)

        e.Graphics.DrawString(Me.TextBox12.Text, f, b, Me.TextBox12.Location.X, Me.TextBox12.Location.Y)
        e.Graphics.DrawString(Me.TextBox12.Text, f, b, Me.TextBox12.Location.X + 220, Me.TextBox12.Location.Y)
        e.Graphics.DrawString(Me.TextBox12.Text, f, b, Me.TextBox12.Location.X + 500, Me.TextBox12.Location.Y)

        e.Graphics.DrawString(Me.TextBox13.Text, f, b, Me.TextBox13.Location.X, Me.TextBox13.Location.Y)
        e.Graphics.DrawString(Me.TextBox13.Text, f, b, Me.TextBox13.Location.X + 220, Me.TextBox13.Location.Y)
        e.Graphics.DrawString(Me.TextBox13.Text, f, b, Me.TextBox13.Location.X + 500, Me.TextBox13.Location.Y)

        e.Graphics.DrawString(Me.TextBox14.Text, f, b, Me.TextBox14.Location.X, Me.TextBox14.Location.Y)
        e.Graphics.DrawString(Me.TextBox14.Text, f, b, Me.TextBox14.Location.X + 220, Me.TextBox14.Location.Y)
        e.Graphics.DrawString(Me.TextBox14.Text, f, b, Me.TextBox14.Location.X + 500, Me.TextBox14.Location.Y)

        e.Graphics.DrawString(Me.TextBox15.Text, f, b, Me.TextBox15.Location.X, Me.TextBox15.Location.Y)
        e.Graphics.DrawString(Me.TextBox15.Text, f, b, Me.TextBox15.Location.X + 220, Me.TextBox15.Location.Y)
        e.Graphics.DrawString(Me.TextBox15.Text, f, b, Me.TextBox15.Location.X + 500, Me.TextBox15.Location.Y)

        e.Graphics.DrawString(Me.DateTimePicker1.Text, f, b, Me.DateTimePicker1.Location.X, Me.DateTimePicker1.Location.Y)
        e.Graphics.DrawString(Me.DateTimePicker1.Text, f, b, Me.DateTimePicker1.Location.X + 220, Me.DateTimePicker1.Location.Y)
        e.Graphics.DrawString(Me.DateTimePicker1.Text, f, b, Me.DateTimePicker1.Location.X + 500, Me.DateTimePicker1.Location.Y)

        e.Graphics.DrawString(Me.TextBox16.Text, f, b, Me.TextBox16.Location.X - 20, Me.TextBox16.Location.Y)
        e.Graphics.DrawString(Me.TextBox16.Text, f, b, Me.TextBox16.Location.X + 220, Me.TextBox16.Location.Y)
        e.Graphics.DrawString(Me.TextBox16.Text, f, b, Me.TextBox16.Location.X + 550, Me.TextBox16.Location.Y)

    End Sub
End Class