不打开文件打印文件

lss001

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As Any, ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long
Const SW_SHOWMINNOACTIVE = 7
Sub PrintAnyFile()
    Dim Ret&, FileToPrint As String
    FileToPrint = "D:\xxx.xls" '指定要打印文件
    Ret = ShellExecute(Application.hwnd, "print", FileToPrint, ByVal 0&, ByVal 0&, SW_SHOWMINNOACTIVE)
End Sub


其实上面这种打印文件的方式，它的作用方式，和我们直接将文件文件拖拉到打印机的图示上去打印文件是一样的道理！ 如果您之前尚不知道这个功能的话，您现在可以试试看将一份文件直接拖拉放到打印机的图示上，看看结果如何！

Qs18

您好非常棒！指定打印工作表及区域怎么设置呢

lss001

Qs18 发表于 2024-6-27 07:01
您好非常棒！指定打印工作表及区域怎么设置呢

指定打印表格→Sheet1，
指定打印区域→"A1:C100"
Sheet1.PageSetpup.PrintArea = "A1:C100"

Qs18

lss001 发表于 2024-6-27 08:14
指定打印表格→Sheet1，
指定打印区域→"A1:C100"
Sheet1.PageSetpup.PrintArea = "A1:C100"

谢谢，非常感谢.....

lizhipei78

不打开文件打印是否会快速很多？

lss001

lizhipei78 发表于 2024-6-28 11:46
不打开文件打印是否会快速很多？

如果是大文件，或文件较多的情况下
相对来说快一些，毕竟打开文件需要时间。

lizhipei78

lss001 发表于 2024-6-28 11:49
如果是大文件，或文件较多的情况下
相对来说快一些，毕竟打开文件需要时间。

我试了一下，其实是有一个打开的界面一闪而过，我用的是WPS，我想如果是这样子，用你的方法，每打印一个都要闪一下界面，打印多个文件，我在自己打开WPS的情况下用Print out会不会更快一点。

lss001

lizhipei78 发表于 2024-6-28 15:33
我试了一下，其实是有一个打开的界面一闪而过，我用的是WPS，我想如果是这样子，用你的方法，每打印一个 ...

'闪一下是屏幕刷新
'开始处可以加入如下代码

'禁止屏幕刷新
Application.ScreenUpdating = False

'结束处加入恢复
Application.ScreenUpdating = True