目前想用第三方的打印控件iTextSharp.dll

在快表vba中

Imports iTextSharp
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports iTextSharp.text.pdf.security

直接导入好像不可以，咨询大神导入方法，如此就可以更灵活的完成复杂的打印操作了

可以参考：

1. Public Sub CallImgToPdfAsync(urls As Object(, ), outputPdf As String)
   
2.                         'Dim exePath As String = "C:\Users\Administrator\source\repos\imgTopdf\bin\Debug\ImgToPdf.exe"
   
3.                         Dim exePath As String = Directory.GetCurrentDirectory() + "\Dll\topdf\ImgToPdf.exe"
   
4.                         ' urls参数是二维数组，每行所有列用逗号分隔
   
5.                         Dim arguments As New System.Text.StringBuilder()
   
6.                         If urls IsNot Nothing Then
   
7.                                 Dim rows As Integer = urls.GetLength(0)
   
8.                                 Dim cols As Integer = urls.GetLength(1)
   
9.                                 Dim first As Boolean = True
   
10.                                 For r As Integer = 0 To rows - 1
    
11.                                         Dim arr As New List(Of String)()
    
12.                                         For c As Integer = 0 To cols - 1
    
13.                                                 Dim val As String = ""
    
14.                                                 If urls(r, c) IsNot Nothing Then val = urls(r, c).ToString().Trim()
    
15.                                                 arr.Add(val)
    
16.                                         Next
    
17.                                         If arr(0) <> "" Then
    
18.                                                 If Not first Then arguments.Append(" ")
    
19.                                                 arguments.Append(String.Join(",", arr))
    
20.                                                 first = False
    
21.                                         End If
    
22.                                 Next
    
23.                         End If
    
24.                         If Not String.IsNullOrWhiteSpace(outputPdf) Then
    
25.                                 If arguments.Length > 0 Then arguments.Append(" ")
    
26.                                 arguments.Append("-o ")
    
27.                                 arguments.Append(outputPdf)
    
28.                         End If
    
29.                         '                        MessageBox.Show(arguments.ToString(), "调用参数")
    
30.                         Task.Run(Sub()
    
31.                         Dim psi As New ProcessStartInfo() With {
    
32.                         .FileName = exePath,
    
33.                         .Arguments = arguments.ToString(),
    
34.                         .UseShellExecute = False,
    
35.                         .RedirectStandardOutput = False,
    
36.                         .RedirectStandardError = False,
    
37.                         .CreateNoWindow = True,
    
38.                         .WorkingDirectory = IO.Path.GetDirectoryName(exePath)
    
39.                         }
    
40.                         Dim proc As New Process()
    
41.                         proc.StartInfo = psi
    
42.                         proc.Start()
    
43.                         proc.WaitForExit()
    
44. 
    
45.                         ' 进程结束后尝试打开输出 PDF（静默尝试）
    
46.                         Try
    
47.                                 If Not String.IsNullOrWhiteSpace(outputPdf) AndAlso IO.File.Exists(outputPdf) Then
    
48.                                         Try
    
49.                                                 Process.Start(outputPdf)
    
50.                                         Catch
    
51.                                                 ' 忽略打开失败
    
52.                                         End Try
    
53.                                 End If
    
54.                         Catch
    
55.                         End Try
    
56. 
    
57. 
    
58.                         proc.Dispose()
    
59.                 End Sub )
    
60.                 End Sub

复制代码

能不能出一个快表中用的呢？

lexianfeng 发表于 2025-12-17 12:47
能不能出一个快表中用的呢？

上面就是快表中所使用的VBA

可以参考：

1. Public Sub CallImgToPdfAsync(urls As Object(, ), outputPdf As String)
   
2.                         'Dim exePath As String = "C:\Users\Administrator\source\repos\imgTopdf\bin\Debug\ImgToPdf.exe"
   
3.                         Dim exePath As String = Directory.GetCurrentDirectory() + "\Dll\topdf\ImgToPdf.exe"
   
4.                         ' urls参数是二维数组，每行所有列用逗号分隔
   
5.                         Dim arguments As New System.Text.StringBuilder()
   
6.                         If urls IsNot Nothing Then
   
7.                                 Dim rows As Integer = urls.GetLength(0)
   
8.                                 Dim cols As Integer = urls.GetLength(1)
   
9.                                 Dim first As Boolean = True
   
10.                                 For r As Integer = 0 To rows - 1
    
11.                                         Dim arr As New List(Of String)()
    
12.                                         For c As Integer = 0 To cols - 1
    
13.                                                 Dim val As String = ""
    
14.                                                 If urls(r, c) IsNot Nothing Then val = urls(r, c).ToString().Trim()
    
15.                                                 arr.Add(val)
    
16.                                         Next
    
17.                                         If arr(0) <> "" Then
    
18.                                                 If Not first Then arguments.Append(" ")
    
19.                                                 arguments.Append(String.Join(",", arr))
    
20.                                                 first = False
    
21.                                         End If
    
22.                                 Next
    
23.                         End If
    
24.                         If Not String.IsNullOrWhiteSpace(outputPdf) Then
    
25.                                 If arguments.Length > 0 Then arguments.Append(" ")
    
26.                                 arguments.Append("-o ")
    
27.                                 arguments.Append(outputPdf)
    
28.                         End If
    
29.                         '                        MessageBox.Show(arguments.ToString(), "调用参数")
    
30.                         Task.Run(Sub()
    
31.                         Dim psi As New ProcessStartInfo() With {
    
32.                         .FileName = exePath,
    
33.                         .Arguments = arguments.ToString(),
    
34.                         .UseShellExecute = False,
    
35.                         .RedirectStandardOutput = False,
    
36.                         .RedirectStandardError = False,
    
37.                         .CreateNoWindow = True,
    
38.                         .WorkingDirectory = IO.Path.GetDirectoryName(exePath)
    
39.                         }
    
40.                         Dim proc As New Process()
    
41.                         proc.StartInfo = psi
    
42.                         proc.Start()
    
43.                         proc.WaitForExit()
    
44. 
    
45.                         ' 进程结束后尝试打开输出 PDF（静默尝试）
    
46.                         Try
    
47.                                 If Not String.IsNullOrWhiteSpace(outputPdf) AndAlso IO.File.Exists(outputPdf) Then
    
48.                                         Try
    
49.                                                 Process.Start(outputPdf)
    
50.                                         Catch
    
51.                                                 ' 忽略打开失败
    
52.                                         End Try
    
53.                                 End If
    
54.                         Catch
    
55.                         End Try
    
56. 
    
57. 
    
58.                         proc.Dispose()
    
59.                 End Sub )
    
60.                 End Sub

复制代码

能不能出一个快表中用的呢？

lexianfeng 发表于 2025-12-17 12:47
能不能出一个快表中用的呢？

上面就是快表中所使用的VBA