Tag: 缩小

以空格格式导出Excelsheet中的PDF，无空格

需要我的苦难的解决scheme。 这下面的代码工作，但问题是它显示我作为一个完整的网站的空白空间。 我想知道是否有可能“缩水”？ 收缩应该开始@列“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 谢谢