vba - 以横向格式从 Excelsheet 导出 PDF，没有空格

Question

需要解决我的痛苦。以下代码有效，但问题是它将空白空间显示为完整站点。我想知道是否可以“缩小”它？

收缩应该从@列“F”开始

这是代码:

Private Sub CommandButton1_Click()
    Dim mySheets As Variant, sh

    mySheets = Array("Tabelle1")
    For Each sh In mySheets
        Sheets(sh).PageSetup.Orientation = xlLandscape

    Next
    Range("A1:CR33").Select

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\export.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

    End If
End Sub

为了说明这里的图片。
这就是我得到的: http://www.bilder-upload.eu/show.php?file=e31421-1438765650.jpg

这就是我想要的: http://www.bilder-upload.eu/show.php?file=a9f566-1438765707.jpg

谢谢

Answer 1

我认为这就是你所追求的:

私有(private)子 CommandButton1_Click()
将 mySheets 调暗为变体，sh

mySheets = Array("Tabelle1")
For Each sh In mySheets
    Sheets(sh).PageSetup.Orientation = xlLandscape

Next

For Each the_cell In Range("A1:A33")
    If the_cell.Value = "" Then
        the_cell.EntireRow.Hidden = True
    Else
        Exit For
    End If
Next the_cell

Range("A1:CR33").Select


Selection.ExportAsFixedFormat Type:=xlTypePDF, fileName:=ThisWorkbook.Path & "\export.pdf", _
    quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Range("A1:A33").EntireRow.Hidden = False

End Sub

本质上，我添加了一个循环 - 它将在第一个填充行之前隐藏单元格(并在之后取消隐藏)

希望这对您有用