UC知道VB 批量打印为什么顺序颠倒
来源：百度知道 编辑：UC知道 时间：2024/05/22 15:10:32
Private Sub mnPRINT_Do_Click(Index As Integer)
Dim intPage As Integer
Dim intRes As Integer
Dim lRetval&
Dim StopTheTimer As Boolean
Select Case Index
Case 0 '仅打印一页
If mViewNo > 0 Then
Call StatusMessage("印刷中．．．")
Call Page_Print(mViewNo)
Call StatusMessage("")
End If
Case 1 '全部印刷
Screen.MousePointer = vbHourglass
For intPage = 1 To UBound(mViewFile)
Call StatusMessage(" " & CStr(intPage) & "/" & CStr(UBound(mViewFile)) & _
Call Page_Print(intPage)
DoEvents(
Next intPage
Call StatusMessage("")
Screen.MousePointer = vbDefault
Case 3 '印刷设定
'
On Error Resume Next
Dim intPage As Integer
Dim intRes As Integer
Dim lRetval&
Dim StopTheTimer As Boolean
Select Case Index
Case 0 '仅打印一页
If mViewNo > 0 Then
Call StatusMessage("印刷中．．．")
Call Page_Print(mViewNo)
Call StatusMessage("")
End If
Case 1 '全部印刷
Screen.MousePointer = vbHourglass
For intPage = 1 To UBound(mViewFile)
Call StatusMessage(" " & CStr(intPage) & "/" & CStr(UBound(mViewFile)) & _
Call Page_Print(intPage)
DoEvents(
Next intPage
Call StatusMessage("")
Screen.MousePointer = vbDefault
Case 3 '印刷设定
'
On Error Resume Next
这个问题好像是打印机设置的，在一般情况下打印机打印文件都是从最后一页往第一页打印的，打印机设置一下看看。
怎么批量打印？
看一下
Page_Print(intPage)代码
打印对话框右侧有个“逆序打印”用于多页打印后直接反过来就是从第一页开始的文档，你选择了吗？
你是不是打印机选择“逆序打印”了？