如何用R调用虚拟打印机将.xlsx文件打印成.pdf文件？

chuxinyuan

问题描述

单位要求日报必须用pdf格式的作为附件。之前都是直接利用openxlsx包生成.xlsx文件的，这个.xlsx文件里除了标题、表头、数据外还有其他的一些要素，比如数据单位、报告期、制表、复核、说明等一系列“乱七八糟”的东西。所以想在原有代码基础上再增加一部分代码将生成的.xlsx文件通过虚拟打印机打印成.pdf格式的文件。看到一篇用Java来实现的，JAVA 调用打印机输出PDF文件，看起来比较复杂，用R实现起来估计也不简单。

示例代码


##########################################################################

# 定义报告期
report_period = c("2020-04-08") 

##########################################################################

# 计算报告期年、月、日
report_year = as.numeric(substr(report_period, 1, 4))
report_month = as.numeric(substr(report_period, 6, 7))
report_day = as.numeric(substr(report_period, 9, 10))

##########################################################################

daily = data.frame(
  x1 = 1:21,
  x2 = 1:21,
  x3 = 1:21,
  x4 = 1:21,
  x5 = 1:21,
  x6 = 1:21,
  x7 = 1:21,
  x8 = 1:21
)

##########################################################################

# 数据导入到Excel文件中

## 新建一个工作簿wb、新建一个工作表daily
library(openxlsx)
library(lubridate)
wb = createWorkbook()
addWorksheet(wb, "daily", gridLines = FALSE)

## 设置全局列宽、行高、冻结活动单元格
setColWidths(
  wb, 
  "daily", 
  cols = 1:8,
  widths = c(26, rep(15.5, 5), 12, 18)
)

setRowHeights(
  wb, 
  "daily",
  rows = 1:(nrow(daily) + 4),
  heights = c(20, 35, rep(20, nrow(daily) + 2))
)

## 打印设置
pageSetup(
  wb, 
  "daily",
  orientation = "landscape",
  scale = 97,
  left = 0.7,
  right = 0.7, 
  top = 0.75,
  bottom = 0.75,
  header = 0.3, 
  footer = 0.3,
  fitToWidth = TRUE,
  fitToHeight = TRUE,
  paperSize = 9,
  printTitleRows = NULL, 
  printTitleCols = NULL
)

## 保密提示
secret = c("★内部资料、严格保密")
style_secret = createStyle(
  halign = "right",
  valign = "center",
  wrapText = TRUE,
  fontColour = "red",
  fontSize = 11, 
  fontName = "Arial"
)

mergeCells(
  wb, "daily", 
  rows = 1:1, 
  cols = 1:8
)

addStyle(
  wb, 
  "daily", 
  style = style_secret,
  rows = 1:1, 
  cols = 1:8
)

writeData(wb, "daily", secret,  
          startRow = 1)

## 大标题设置
title = paste0(
  year(report_period), "年" ,
  month(report_period), "月",
  day(report_period), 
  "日经营数据日报"
)

style_title = createStyle(
  halign = "center",
  valign = "center",
  wrapText = TRUE,
  textDecoration = c("bold"),
  fontColour = "black",
  fontSize = 20, 
  fontName = "Arial"
)

mergeCells(
  wb, "daily", 
  rows = 2:2, 
  cols = 1:8
)

addStyle(
  wb, 
  "daily", 
  style = style_title,
  rows = 2:2, 
  cols = 1:8
)

writeData(wb, "daily", title,  
          startRow = 2)

## 报告期设置
date = paste0("报告日期：", Sys.Date())

style_date = createStyle(
  halign = "right",
  valign = "center",
  wrapText = TRUE, 
  fontColour = "black",
  fontSize = 11, 
  fontName = "Arial")

mergeCells(wb, "daily", 
           rows = 3:3, cols = 6:7)

addStyle(wb, "daily", style = style_date,
         rows = 3:3, cols = 6:7)

writeData(wb, "daily", date,  
          startRow = 3, startCol = 6)

## 数据单位设置
unit = "单位：亿元、%"
style_unit = createStyle(
  halign = "center",
  valign = "center",
  wrapText = TRUE, 
  fontColour = "black",
  fontSize = 11, 
  fontName = "Arial")

mergeCells(wb, "daily", 
           rows = 3:3, cols = 8:8)

addStyle(
  wb, 
  "daily", 
  style = style_unit,
  rows = 3:3, 
  cols = 8:8
)

writeData(wb, "daily", unit,  
          startRow = 3, startCol = 8)

## 表头部分设置
style_header = createStyle(
  textDecoration = "Bold",
  halign = "center",
  valign = "center",
  wrapText = TRUE,
  border = "TopBottomLeftRight",
  borderColour = "black",
  fontColour = "white",
  fgFill = "#4F81BD",
  fontSize = 11, 
  fontName = "Arial")

## 数据部分设置
style_data = createStyle(
  valign = "center",
  border = "TopBottomLeftRight",
  borderColour = "black",
  fontSize = 11, 
  fontName = "Arial",
  numFmt = "0.00" )

addStyle(
  wb, 
  "daily", 
  style = style_data,
  rows = 5:(nrow(daily) + 4), 
  cols = 1:8,
  gridExpand = T
)

writeData(
  wb, 
  "daily", 
  daily,
  headerStyle = style_header,
  startRow = 4
)

## 保存工作簿
saveWorkbook(wb, overwrite = TRUE, "daily.xlsx")

#########################################################################

一些思考

考虑到通过.xlsx格式打印成.pdf格式用R实现由点绕，且不一定容易。我现在考虑直接输出为.pdf格式，而不是数据-->.xlsx-->.pdf。但是那些“乱七八糟”的数据单位、报告期、制表、复核、说明等要素该如何放进去呢？位置又该怎么精准控制呢？

frankzhang21

xlsx > pdf 这一步可以用vba来做，在R里面调用VBA即可

chuxinyuan

frankzhang21 我试试，谢谢你！

frankzhang21

chuxinyuan

也可以用python里面的xlwings

哎，R的轮子还是比python少了一些

chuxinyuan

frankzhang21 非常感谢您的多次无私帮助，受益良多。
@版主论坛代码高亮设置近期貌似更新了，但是颜色设置辨识度感觉不如以前了。

chuxinyuan

# 调用VBA将Excel文件转为PDF格式
library(RDCOMClient)
xlFile = "path/to/daily.xlsx"  # 这里使用绝对路径
xlApp = COMCreate("Excel.Application")
xlApp[["Visible"]] = TRUE 
wb = xlApp[["Workbooks"]]$Open(Filename = xlFile)
sht = wb[["Worksheets"]]$Item(1)
sht$Select()

pdfFile =  "path/to/daily.pdf"   # 这里使用绝对路径
if (file.exists(pdfFile) == TRUE)  file.remove(pdFile)

xlApp[["ActiveSheet"]]$ExportAsFixedFormat(
  IgnorePrintAreas = FALSE,
  Type = 0,    # 输出为PDF
  Filename = pdfFile
)

xlApp$Quit()    #  关闭Excel文件

特别需要注意的是：
1.RDCOMClient包貌似不支持相对路径。
2.如果已经生成了PDF文件，如果再运行一遍程序，原先生成的PDF文件不会被覆盖，程序会报错，所以必须删除之前已经生成的PDF文件再运行程序。

Ihavenothing

chuxinyuan 显式指定一下语言。

```r
# 调用VBA将Excel文件转为PDF格式
library(RDCOMClient)
file = "path/to/daily.xlsx"  # 这里使用绝对路径
```

# 调用VBA将Excel文件转为PDF格式
library(RDCOMClient)
file = "path/to/daily.xlsx"  # 这里使用绝对路径

chuxinyuan

Ihavenothing 谢谢！不过还是感觉太素了。

yihui

chuxinyuan 浓肥辛甘非真味，真味只是淡。

chuxinyuan

yihui 好吧，代码如果比较长，花花绿绿的确实是挺烦的，因为相当于它不停的提示你这里、这里、还有这里需要你有分别心来对待，每个代码块被调试完确定没问题后，事实上我们可能只需要对每个流程保持分别心。有些时候觉得一个简单的plot()就挺好的，有种古典的朴素美。

by the way，不知道你那边情况怎么样了，有点担心你呢，有需要可以联系我，要不你也回国得了。

yihui

chuxinyuan 谢谢关心！我在中部的内布拉斯加州，确诊人数目前在美国各州里排倒数，算是非常安全的地方了。现在没法回国，基本上没有航班了，而且机场和飞机上的风险比蹲在家里高多了。

Cloud2016

chuxinyuan 是否有可能和老板商量附件给 HTML 的独立文件，这样问题就简化了。维护 PDF 日报实在太难了，楼主涉及的技术栈 VBA / JAVA 也是真的厉害

yihui 虽然在中部，但是好像没有强制措施限制人口流动，还是要多注意，国内疫情严重的时候，随便乱走也是违法的！各个村做到了完全封闭，我湖南老家在 N 线城市也封城了。

chuxinyuan

yihui 宅在家里，躺赢！莲花清瘟胶囊备上，有备无患。我一个英国的朋友收到了使馆送的防疫健康包，里面就有这个药。

lovebluesky

yihui 不知道现在还能不能寄药，据说美帝那边炒的很高，也要很久才能收到货

yihui

chuxinyuan lovebluesky Cloud2016 多谢各位关心（虽然完全跑题了）！目前我不需要口罩，也不需要药，不必给我寄；这里没有封城，只要有胆量出门，就可以随意走动，唯一的限制是聚会人数不能超过十人以及人与人之间保持两米距离。我都在家宅了快七年了，再宅它两三个月算啥。不过老美都宅不住，关几天就要发疯了，前几天我们的市区那边一个公园就有一百来号人因为宅不住而公然违抗十人令去集体聚会烤肉，然而发生了一起枪击案，一死两伤（我们市平时还是很安全的，极少有枪击案）。所以这新冠本身还不算大问题，更大的问题是有些人会出精神问题。