代码之家  ›  专栏  ›  技术社区  ›  Sancarn

Excel的打印到PDF以不正确的缩放显示OfficeJS内容

  •  0
  • Sancarn  · 技术社区  · 5 年前

    如果我在Excel中放大很远,然后转到“文件”>“导出”>“PDF”,则“内容加载项”会放大很远。或者,如果我在Excel中缩小很远,然后使用“文件”>“导出”>“PDF”,则“内容加载项”会放大很远。

    使用vba代码时也会发生同样的情况:

    MySheet.Range("PDF_RANGE").ExportAsFixedFormat xlTypePDF, path, OpenAfterPublish:=True
    

    这显然是一个微软的office漏洞,但我能做些什么来缓解它吗?


    注:我无法在Excel2016中进行测试,这可能是Excel2013的唯一版本。

    1 回复  |  直到 5 年前
        1
  •  2
  •   Sancarn    5 年前

    以下是缓解一些问题的简单解决方案:

    Dim scu As Boolean: scu = Application.ScreenUpdating
    Application.ScreenUpdating = False
        Dim zoom As Integer: zoom = ActiveWindow.zoom
        ActiveWindow.zoom = 100
            Master.Range("PDF_RANGE").ExportAsFixedFormat xlTypePDF, path, OpenAfterPublish:=True
        ActiveWindow.zoom = zoom
    Application.ScreenUpdating = scu
    

    不幸的是,即使在 Application.ScreenUpdating 设置为 False ,但希望这些问题在以后的office版本中得到解决。