请教分类批量打印代码问题

jian82372387

下述附件里的分类打印模块里在print那里加多了一个打印预览的参数preview:=True，代码就无法正常运行，请教以下如何解决，因为如果没有打印预览，有时会忘记设置打印双面翻短边，导致打印有问题，而且因自动打印的页码较多，要取消打印需按多次取消才可以（打印多少页就要按取消多少次）




Private Sub cmd_Printout_Click()
Dim print_cat As String
With Me
    print_cat = .cb_list
    If Len(print_cat) Then
        If clsSQL Is Nothing Then Set clsSQL = New ClassSQL
        sSQL = "SELECT [序号] FROM [数据源$] WHERE [性质]='" & print_cat & "'"
        vData = clsSQL.GetDataBySQL(SQL:=sSQL, SqlType:="Excel", FileOrServer:=ThisWorkbook.FullName, OutputTitle:=False)
        If IsArray(vData) Then
            For i = 1 To UBound(vData)
                Sheet1.Range("V4") = vData(i, 1)
                Sheet1.Calculate
                Sheet1.PrintOut Copies:=1, Collate:=True, preview:=True
            Next
        End If
    End If
End With
End Sub

3190496160

目前的代码，即时预览发现问题，也没法取消打印吧

jian82372387

3190496160 发表于 2023-5-23 11:21
目前的代码，即时预览发现问题，也没法取消打印吧

请问有其他办法解决吗？？

jian82372387

3190496160 发表于 2023-5-23 11:21
目前的代码，即时预览发现问题，也没法取消打印吧

请问那有没办法通过代码先打印两页测试，确认无误后再按继续打印啊？？

szqhb

jian82372387 发表于 2023-5-24 23:04
请问那有没办法通过代码先打印两页测试，确认无误后再按继续打印啊？？

安装虚拟打印机，先在虚拟打印机打印浏览。

sogo777

要解决在打印预览时出现的问题，您可以修改代码，添加一个对话框，让用户选择是否进行打印预览。如果用户选择打印预览，代码将使用PrintPreview方法进行预览，否则直接进行打印。以下是相应的修改后的代码：

1. Private Sub cmd_Printout_Click()
   
2.     Dim print_cat As String
   
3.     Dim previewPrint As Boolean
   
4.    
   
5.     With Me
   
6.         print_cat = .cb_list
   
7.         If Len(print_cat) Then
   
8.             If clsSQL Is Nothing Then Set clsSQL = New ClassSQL
   
9.             sSQL = "SELECT [序号] FROM [数据源$] WHERE [性质]='" & print_cat & "'"
   
10.             vData = clsSQL.GetDataBySQL(SQL:=sSQL, SqlType:="Excel", FileOrServer:=ThisWorkbook.FullName, OutputTitle:=False)
    
11.             If IsArray(vData) Then
    
12.                 previewPrint = MsgBox("是否进行打印预览？", vbQuestion + vbYesNo) = vbYes
    
13.                
    
14.                 For i = 1 To UBound(vData)
    
15.                     Sheet1.Range("V4") = vData(i, 1)
    
16.                     Sheet1.Calculate
    
17.                     If previewPrint Then
    
18.                         Sheet1.PrintPreview
    
19.                     Else
    
20.                         Sheet1.PrintOut Copies:=1, Collate:=True
    
21.                     End If
    
22.                 Next
    
23.             End If
    
24.         End If
    
25.     End With
    
26. End Sub
    

复制代码

以上代码中，添加了一个对话框询问用户是否进行打印预览，根据用户的选择来执行打印操作。如果用户选择打印预览，代码将使用PrintPreview方法进行预览，否则直接使用PrintOut方法进行打印。

这样，用户在执行打印操作时可以根据需要选择是否进行打印预览。

jian82372387

sogo777 发表于 2023-5-25 11:00
要解决在打印预览时出现的问题，您可以修改代码，添加一个对话框，让用户选择是否进行打印预览。如果用户选 ...

这样和我的一样会卡再打印预览的界面无法打印