r - 使用 R 将 Excel (.xlsx) 工作表打印/保存为 PDF

Question

我想在操作后将 Excel 文件打印为 pdf 文件。对于操作，我使用了 .xlsx 包，效果很好。有一个函数 printSetup 但我找不到启动打印的函数。有解决办法吗？

library(xlsx)
file <- "test.xlsx"
wb <- loadWorkbook(file)  
sheets <- getSheets(wb)       # get all sheets
sheet <- sheets[[1]]          # get first sheet
# HERE: MAGIC TO SAVE THIS SHEET TO PDF

这可能是使用 DCOM 的解决方案通过 RDCOMClient 包，尽管我更喜欢独立于平台的解决方案(例如使用 xlsx)，因为我在 MacOS 上工作。有什么想法吗？

Answer 1

下面是通过 RDCOMClient 使用 DCOM 接口(interface)的解决方案。这不是我的首选解决方案，因为它仅适用于 Windows。独立于平台的解决方案仍然会受到赞赏。

library(RDCOMClient)
library(R.utils)

file <- "file.xlsx"                   # relative path to Excel file
ex <- COMCreate("Excel.Application")  # create COM object
file <- getAbsolutePath(file)         # convert to absolute path
book <- ex$workbooks()$Open(file)     # open Excel file
sheet <- book$Worksheets()$Item(1)    # pointer to first worksheet
sheet$Select()                        # select first worksheet
ex[["ActiveSheet"]]$ExportAsFixedFormat(Type=0,    # export as PDF
                                        Filename="my.pdf", 
                                        IgnorePrintAreas=FALSE)
ex[["ActiveWorkbook"]]$Save()         # save workbook
ex$Quit()                             # close Excel