vb批量打印 请问以下的程序怎么修改可以从后面打回来；例如从10开始打到1。

首先令cells(6,12)=10, cells(7,12)=1

Sub AUTOPrintOut03()

For i = Cells(6, 12) To Cells(7, 12) step -1

Cells(4, 11) = i

ActiveSheet.PrintOut

Cells(4, 11) = Cells(4, 11) + 1

Next

End Sub

这样i就从10到1变化。

引用部件adodb acrobat browser control type library 1.0

在窗体中创建AcroPDF1

Dim file_name As String

file_name = Dir("D:\") 'file_name 赋值为d盘目录下的第一个文件

Do While file_name <>"" '如果file_name不为空

If file_name Like "*.pdf" Then '如果file_name为pdf格式

Me.AcroPDF1.LoadFile = "D\" &file_name '加载文件

Me.AcroPDF1.printAll '打印文件

End If

file_name = Dir '查找d盘目录下的下一个文件

Loop

一般这样的打印有一些地方需要变更，可以先做一个列表，做上编号。

查看代码中添加一下代码，表格中做如下设置配合下面的代码。可以调整为你需要的。

下面

I11，目前编号

I12，开始编号

I13，结束编号

具体你可以再琢磨一下。

Sub 批量打印_单击()

If [i12] >[i13] Then

MsgBox "开始序号大于结束序号请检查"

Else

For i = [i12] To [i13]

[i11] = i

ActiveSheet.PrintOut Copies:=1

Next i

End If

End Sub

我也是网上找的，很好用。

---