小编Mic*_*May的帖子

对帖子中的任何格式错误表示歉意,但这是我第一次使用该网站,我不太了解fquestion格式说明.

我已经在主板上看到了这个问题,但它并没有完全回答我的问题,但它可能对任何想要帮助的人都有用 - excel vba没有正确地将pagesetup导出到pdf

我在使用代码创建.pdf输出时,没有导出每个工作表中指定范围的完全相同的问题.导出的内容是每个工作表上的所有内容,因此每个工作表分布在2个或更多页面上.设置每张纸的打印范围以将指定区域打印到1张纸上.

我试图在上面的链接中调整代码,但它似乎不适用于多个工作表.

我试图以其未适应的形式使用的代码如下

Sub ClientPDFOutput()

If Sheets("File Data").Range("FD_FileName") = "" Then
'   MsgBox ("Save the file before exporting to a .pdf fomrat"), vbInformation, "Save File"

'   Exit Sub
   Else
End If

ActiveSheet.Unprotect Password:=strPassword

Range("UI_Status") = "Creating client PDF output - Please wait"

SelectSheets

Application.ScreenUpdating = False

Sheets(arrSheets).Select

strFilename = "Test"

Selection.ExportAsFixedFormat _
   Type:=xlTypePDF, _
   filename:=ActiveWorkbook.Path & "\" & strFilename & ".pdf", _
   Quality:=xlQualityStandard, _
   IncludeDocProperties:=True, _
   IgnorePrintAreas:=True, _
   OpenAfterPublish:=False

Sheets("User Input").Select

Range("UI_Status") = "Client …