Sub CreatePDF()
...
For i = 1 to 14
With Worksheets(i)
lastrow = Worksheets(i).Range("A1").CurrentRegion.Rows.Count
.PageSetup.PaperSize = xlPaperLetter
.PageSetup.PrintArea = Range("A1:H" & lastrow +3).Address
End With
Next
. . .
ThisWorkbook.ExportAsFixedFormat_
Type:=xlTypePDF
Filename:= xxx
Quality:= xlQualityStandard,_
IncludeDocProperties:=True,_
IgnorePrintAreas:= False,_
OpenAfterPublish:= True
Когда я попытался преобразовать первые 14 листов в один PDF-файл, выходные данные имели несовместимые размеры страниц.
Я изменил ширину столбцов каждого листа, чтобы обеспечить одинаковую общую ширину для всех листов.
Я также пытался решить эту проблему, изменив размер страницы и область печати. и "вписывается в ширину и ширину в 1 страницу", или с включением "увеличения" в моем коде, но ни один из них не работает.
Любые мысли о том, как это исправить