我找到了一个将Excel工作表打印到PDF的宏,我希望能够跨多个工作表执行此操作,而不必使用工作表名称但使用工作表索引 . 我想根据每个工作表中的范围保存pdf(所有工作表上的范围都相同) .
继承人我所拥有的:
Sub exceltoPDF1()
'Saves the excel print area to a PDF file
Dim fp As String
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Worksheets(1).Activate
Set rng = Worksheets(1).Range("A1")
'\\MNACPFS01\Home\sramdeo\Desktop\stuff
i = rng
fp = "\\MNACPFS01\Home\sramdeo\Desktop\stuff "
'fp = "H:\2013_FY148\07_OCT13\4. PROGRAM DOCS\APR\ " & "rng.pdf"""
Set wb = ActiveWorkbook
Set ws = Worksheets(1)
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=i, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
2 回答
这将使用工作表的索引传递工作簿
wb
中包含的所有工作表:Sub Cetak_Sampul()
结束子
(如何将打印作为pdf,文件名保存为范围("ON"),文件为here trim's