[实用]VB.NET PDF文件批量打印

Private Function Boo_FileExist(ByVal Str_File As String) As Boolean
   Boo_FileExist = System.IO.File.Exists(Str_File)
End Function
Function pd_file() As Boolean
   Dim temp As String = ""
   For Each file_name In txt_coding.Lines
       If file_name <> "" Then
           If Boo_FileExist(txt_path.Text & file_name & ".pdf") = False Then
               temp = file_name + vbCrLf + temp
           End If
       End If
   Next
   If temp <> "" Then
       MsgBox(temp, MsgBoxStyle.Exclamation, "警告:没有以下文件;请下载!")
       Return False
   Else
       Return True
   End If
End FunctionSub get_pt() ''获取打印机列表
   On Error Resume Next
   Dim prtdoc As New PrintDocument()
   Dim strDefaultPrinter As String = prtdoc.PrinterSettings.PrinterName
   Dim strPrinter As [String]
   For Each strPrinter In PrinterSettings.InstalledPrinters
       pt_list.Items.Add(strPrinter)
       If strPrinter = strDefaultPrinter Then
           pt_list.SelectedIndex = pt_list.Items.IndexOf(strPrinter)
       End If
   Next strPrinter
   pt_list.Text = strDefaultPrinter
End Sub
Sub get_filelist()
   Try
       Dim dirs As String() = Directory.GetFiles(txt_path.Text, "*.pdf")
       Dim dir As String
       Dim filel As String
       For Each dir In dirs
           filel = Split(dir, "\")(UBound(Split(dir, "\")))
           txt_coding.Text = Split(filel, ".pdf")(0) + vbCrLf + txt_coding.Text
           Application.DoEvents()
       Next
   Catch e As Exception
       MsgBox("文件列表获取失败!", vbInformation, "VB小源码")
   End Try
End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_pt_pdf.Click
   If txt_coding.Text <> "" Then
       PT_PDF()
   Else
       MsgBox("请输入文件名或者获取文件列表!", MsgBoxStyle.Information, "VB小源码")
   End IfEnd SubPrivate Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_zh.CheckedChanged
   If cb_zh.Checked = True Then
       cb_all.Checked = False
       cb_zd.Checked = False
       zd_ks.Enabled = False
       zd_js.Enabled = False
       cb_ds.Checked = False
       ds_ks.Enabled = False
       ds_js.Enabled = False
   End If
End SubPrivate Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_zd.CheckedChanged
   If cb_zd.Checked = True Then
       zd_ks.Enabled = True
       zd_js.Enabled = True
       cb_all.Checked = False
       cb_zh.Checked = False
       cb_ds.Checked = False
       ds_ks.Enabled = False
       ds_js.Enabled = False
   End If
End SubPrivate Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_all.CheckedChanged
   If cb_all.Checked = True Then
       zd_ks.Enabled = False
       zd_js.Enabled = False
       cb_zh.Checked = False
       cb_zd.Checked = False
       cb_ds.Checked = False
       ds_ks.Enabled = False
       ds_js.Enabled = False
   End If
End SubPrivate Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_lj.Click
   Dim path_p As String
   get_path_pdf.ShowDialog()
   get_path_pdf.RootFolder = Environment.SpecialFolder.Desktop
   path_p = get_path_pdf.SelectedPath & "\"
   If path_p <> "" Then
       txt_path.Text = path_p
   End IfEnd SubPrivate Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cb_ds.CheckedChanged
   If cb_ds.Checked = True Then
       zd_ks.Enabled = False
       zd_js.Enabled = False
       cb_zh.Checked = False
       cb_zd.Checked = False
       cb_all.Checked = False
       ds_ks.Enabled = True
       ds_js.Enabled = True
   End If
End SubPrivate Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ds_ks.TextChangedEnd Sub
Private Sub clear_list_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clear_list.Click
   txt_coding.Clear()
End SubPrivate Sub 获取文件列表_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles get_file.Click
   If MsgBox("建议:选择少于1000个文件的文件夹获取列表!" & vbCrLf & "是否继续?", vbYesNo, "VB小源码") = vbYes Then
       get_filelist()
   Else
       Exit Sub
   End IfEnd SubPrivate Sub ds_js_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ds_js.TextChanged
   ds_ks.Text = ds_js.Text
End SubPrivate Sub zd_ks_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zd_ks.TextChanged
   zd_js.Text = zd_ks.Text
End Sub