在一页中使用范围选择单元格导出为pdf

帕赛科

我无法将所有范围选择以水平格式导出为PDF,我在哪里做错了?

Sub Macro()
Dim wksht As Worksheet
Set wksht = ActiveSheet

Dim path As String
path = "C:\test\"

If Len(Dir(path, vbDirectory)) = 0 Then
    MkDir path
End If

Dim rngeStart
Dim rngeEnd

Set rngeStart = wksht.UsedRange.Find(What:="####", LookIn:=xlValues, LookAt:=xlWhole)
Set rngeEnd = wksht.UsedRange.FindNext(After:=rngeStart)

Dim dataRange As Range
Set dataRange = wksht.Range(rngeStart, rngeEnd)

Dim wb As Workbook
Dim i As Long

For i = 1 To wksht.Range("A" & wksht.Rows.Count).End(xlUp).Row
  wksht.Copy
  With ActiveSheet
     .Range(.Cells(1, 1), .Cells(1, rngeStart.Column - 1)).EntireColumn.Delete
     .Rows("1:" & rngeStart.Row - 1).Delete
End With

这部分用于PDF导出,只有一页没有选择所有范围:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=path & wksht.Range("A" & i).Value & ".pdf", _ Quality:=xlQualityStandard,
    IncludeDocProperties:=True, IgnorePrintAreas:=False 
ActiveWorkbook.Close 
  Next i
End Sub

在pdf中有“适合一页”导出功能吗?

杰迪吉迪利

您是否尝试过在导出pdf之前调整Activesheet格式?请将此代码添加到您的子Macro()的开头:

'START FORMAT THE ACTIVE SHEET
Application.PrintCommunication = False

With ActiveSheet.PageSetup
    .CenterHorizontally = True
    .CenterVertically = True
    .Orientation = xlLandscape 'xlPortrait
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

Application.PrintCommunication = True
'END FORMAT THE ACTIVE SHEET

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章