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

我想打印一个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 https://en.wikipedia.org/wiki/Distributed_Component_Object_Model通过RDCOMClient包，尽管我更喜欢独立于平台的解决方案（例如使用xlsx）当我在 MacOS 上工作时。有任何想法吗？

下面的解决方案使用DCOM接口通过RDCOMClient。这不是我的首选解决方案，因为它仅适用于 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