|
楼主 |
发表于 2022-5-2 21:00
|
显示全部楼层
还是不对,1:你的代码把列里面的全打印了 (要求选中哪个单元格或框选多个单元格里的都打印) 2:单元格里是不带有.pdf字段 的, 谢谢
下面是我原来的代码,不知道哪里有问题 没有反应了
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub test()
Dim Rng As Range
If LCase(TypeName(Selection)) = "range" Then
For Each Rng In Selection.Cells
If Rng.EntireRow.Hidden = False And Rng.Hyperlinks.Count > 0 Then
If Dir(Rng.Hyperlinks(1).Address) <> "" Then ShellExecute 0, "print", Rng.Hyperlinks(1).Address, vbNullString, vbNullString, vbNormalFocus
End If
Next Rng
End If
End Sub
|
|