如何设置按照文件名的顺序去打印

paladinsr

以下代码是我以前的同事写的，我本人也才开始学VBA没两天，但是同事想要实现按照文件名的顺序去打印

文件名是数字的，但是数字大小是随机，如何设置按照文件名从小到大去打印呢？

说实话 这个代码还没看懂呢

Declare Function ShellExecute Lib"shell32.dll" Alias "ShellExecuteA" _

(ByVal hwnd As Long, ByVal lpszOp AsString, _

ByVal lpszFile As String, ByVal lpszParamsAs String, _

ByVal LpszDir As String, ByVal FsShowCmd AsLong) _

As Long

Private Declare Sub Sleep Lib"kernel32" (ByVal dwMilliseconds As Long)

Sub prin()

Dim WS As Worksheet

Dim Rows As Long

Dim i As Long

Dim fpath As String

Dim fname As String

Set WS = Worksheets("Sheet1")

fpath = Application.ActiveWorkbook.Path& "\"

Rows = WS.UsedRange.Rows.Count

Application.ScreenUpdating = False

For i = 2 To Rows

    fname= fpath & WS.Cells(i, 1) & ".pdf"

   'ShellExecute Application.hwnd, "print", "C:\Print\258.pdf","", "", SW_HIDE '自己改打印的文件路径

    ShellExecuteApplication.hwnd, "print", fname, "", "", SW_HIDE

    sleep8000

    Next

Application.ScreenUpdating = True

End Sub

liulang0808

楼主的文件名是在表格内A列保存吧，
建议针对这一列做个按照数字大小排序即可

paladinsr

的确是  就这么简单啊，它那里面只是简单的文本格式的文件名的数字，譬如PDF文件名是3011.pdf， 它A列显示就是文本格式的3011，这里面顺序的确是乱的，我让它把这里面的数字按顺序排列试试，你的意思我A列怎么排序的 它就按照什么顺序打印 是么？

liulang0808

paladinsr 发表于 2018-9-20 08:27
的确是  就这么简单啊，它那里面只是简单的文本格式的文件名的数字，譬如PDF文件名是3011.pdf， 它A列显示 ...

针对数字排序，可以转换为数字再排序的
文本格式的数字，有小三角号，统一修改成数字看看吧

paladinsr

好的，我去让他试下，待会再回复确认啊

paladinsr

貌似跟公司的打印系统有关系。这段代码在另一个分公司的环境是没问题的

是不是可以考虑把每个文件之间的打印间隔设置下时长？可否帮忙设置下每个文件打印间隔设置成5秒
会不会有效果？

我们公司的打印系统打印的文档是要去cloud上呆一会儿 再到本地的