Excel VBA 宏，用于按页码在电子表格中打印 URL答案

【问题标题】：Excel VBA Macro for Printing URLs in Spreadsheet by Page NumberExcel VBA 宏，用于按页码在电子表格中打印 URL
【发布时间】：2015-02-24 08:25:36
【问题描述】：

我有一个带有在线文档超链接的 Excel 电子表格，我想根据要求打印一定范围的这些内容。大多数情况下需要打印整个文档，但有时我们只想打印某些页面，理想情况下，这一系列页面也可以装订打印。

我有一个宏，有点像我所追求的：

Option Explicit

Sub PrintHyperlinkedPDFs()

Dim PDFrng As Range, PDF As Range
Dim AdobeReader As String, pdfLINK As String
                                        'there is an extra space at the end of this string
AdobeReader = "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe "
Set PDFrng = Selection                  'change this to whatever method you want for setting
                                        'the range of PDF link cells to process and print
For Each PDF In PDFrng
    If PDF.Hyperlinks.Count > 0 Then pdfLINK = PDF.Hyperlinks(1).Address
    Shell """" & AdobeReader & """/n /t """ & pdfLINK & """"
Next PDF

End Sub

您突出显示包含您要打印的链接的单元格，然后运行它并发送其中一些（如果它超过大约 4 个文档，它会冻结并且不会全部发送）。

理想情况下，我想设置一些按钮来打印这些文档的预定义组合，但我并不完全是 VBA 专业人士，因此这可能超出了我的技能范围..

任何帮助将不胜感激。

【问题讨论】：

标签： vba excel

【解决方案1】：

您可以直接在Sheet上添加一个Button并分配已经存储在Sheet中的宏SetupBtn：

Sub SetupBtn()
    ActiveSheet.Range("B2,B4").Select
    PrintHyperlinkedPDFs
End Sub

此宏使用您的 Sub，在 Sub 之前选择您想要的单元格。
创建单元格组合，您创建打印组合。
单元格的顺序是打印的顺序。如果您想要一份文档的两份副本（例如页面分隔符），请编写如下内容：

    ActiveSheet.Range("B2,B4,B2").Select

这很奇怪，但是打印 3 个文档并选择了 2 个单元格...

【讨论】：