Form1.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports kuaidi.w_ewm
Public Class Form1
    Dim pageset As Printing.PageSettings = New Printing.PageSettings()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PageSetupDialog1.Document = PrintDocument1 ''设置Document属性=文档对象或者与PageSettings类关联就可以使用该控件
        PageSetupDialog1.AllowMargins = True
        PageSetupDialog1.PageSettings = PrintDocument1.DefaultPageSettings
        Dim re As DialogResult = PageSetupDialog1.ShowDialog()
        If re = Windows.Forms.DialogResult.OK Then
            pageset = PageSetupDialog1.PageSettings
        End If
    End Sub

    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        'Dim mypen As Pen = New Pen(Color.Blue, 2)
        'PrintDocument1.DefaultPageSettings = pageset
        'e.Graphics.DrawString(RichTextBox1.Text, New Font("黑体", 15), mypen.Brush, 10, 10)
        Dim g As Graphics = e.Graphics
        '先建立画布 
        Dim x As Integer = 50
        Dim y As Integer = 30
        'g.DrawImage(Me.BackgroundImage, 0, 0)
        g.DrawImage(Me.PictureBox1.Image, Me.PictureBox1.Left, PictureBox1.Top, 100, 100)
        For Each item As Control In Me.Controls
            If TypeOf item Is TextBox Then
                Dim tx As Control = TryCast(item, Control)
                If tx.Visible = True Then
                    g.DrawString(tx.Text, tx.Font, Brushes.Red, tx.Left + x, tx.Top + y)

                End If
            End If
        Next
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        PrintDialog1.Document = PrintDocument1
        PrintDialog1.PrinterSettings.Copies = 1 ''打印的份数
        PrintDialog1.PrinterSettings.FromPage = 1 ''第一页的页码
        PrintDialog1.PrinterSettings.ToPage = 1 ''最后一页页码
        'Dim re As DialogResult = PrintDialog1.ShowDialog()
        'If re = Windows.Forms.DialogResult.OK Then

        'End If
        AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintDocument1_PrintPage
        PrintDocument1.Print()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        PrintPreviewDialog1.Document = PrintDocument1
        AddHandler PrintDocument1.PrintPage, AddressOf Me.PrintDocument1_PrintPage
        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1.0
        PrintPreviewDialog1.WindowState = FormWindowState.Maximized
        PrintPreviewDialog1.ShowDialog()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click