我来帮你梳理下当前导出PDF只出单页且未覆盖全部选中区域的问题，同时解答你关于“fit to onepage”功能的疑问：

一、当前代码的核心问题 #

你的PDF导出异常主要来自这几个点：

• 页面设置未适配目标区域：导出PDF时默认沿用工作表的页面配置，如果没设置横向、打印区域或内容缩放，就会只输出默认的单页范围，导致内容截断。
• IgnorePrintAreas:=False的限制：这个参数设为False时，Excel会严格遵循工作表的打印区域设置，而你没把选中的dataRange设为打印区域，所以只会导出默认的单页内容。
• 循环中未处理临时工作表的页面配置：每次复制工作表后，你删除了冗余行列，但没针对处理后的区域调整打印相关设置。

二、修复后的完整代码 #

下面是调整后的代码，我加上了页面横向设置、内容适配一页的配置，还有路径、空值判断等细节优化：

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 As Range, rngeEnd As Range
    Set rngeStart = wksht.UsedRange.Find(What:="####", LookIn:=xlValues, LookAt:=xlWhole)
    ' 增加空值判断，避免找不到标记时报错
    If rngeStart Is Nothing Then
        MsgBox "未找到标记文本'####'，程序终止"
        Exit Sub
    End If
    Set rngeEnd = wksht.UsedRange.FindNext(After:=rngeStart)
    ' 如果只有一个标记，将结束范围设为起始范围
    If rngeEnd Is Nothing Then
        Set rngeEnd = rngeStart
    End If
    
    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
            
            ' 设置页面为横向
            .PageSetup.Orientation = xlLandscape
            
            ' 指定打印区域为处理后的有效数据范围
            .PageSetup.PrintArea = .UsedRange.Address
            
            ' 启用内容适配一页的功能（你要的"fit to onepage"效果）
            .PageSetup.Zoom = False ' 必须先关闭缩放，才能启用适配设置
            .PageSetup.FitToPagesWide = 1 ' 宽度适配1页
            .PageSetup.FitToPagesTall = False ' 高度自动分页，若要强制全内容一页，设为1
        End With
        
        ' 导出PDF，设置IgnorePrintAreas为True，确保导出全部目标内容
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=path & wksht.Range("A" & i).Value & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=True
            
        ' 关闭临时工作簿，不保存修改
        ActiveWorkbook.Close SaveChanges:=False
    Next i
End Sub

三、关于“fit to onepage”的实现 #

Excel VBA里没有直接叫fit to onepage的函数，但可以通过页面设置的属性组合实现这个需求：

• 先设置.PageSetup.Zoom = False：关闭比例缩放，否则适配设置不会生效
• .PageSetup.FitToPagesWide = 1：让内容宽度刚好适配1页
• .PageSetup.FitToPagesTall = 1：让内容高度刚好适配1页

如果你只需要横向铺满一页，高度允许分页，就把FitToPagesTall设为False；如果要强制所有内容都在单页PDF里，就把两个属性都设为1。

额外注意点 #

• 路径必须补全反斜杠：原代码path = "C:test"会导致文件名拼接错误，改成"C:\test\"才能正确生成C:\test\filename.pdf这样的路径。
• 增加空值判断：避免找不到####标记时程序崩溃。
• 关闭临时工作簿时加SaveChanges:=False：防止弹出不必要的保存提示框。

内容的提问来源于stack exchange，提问作者pasaico