文本后面的矩形从excel复制到word时，转换为PDF打印

Question

这可能看起来有点小众，但我遇到了一个奇怪的视觉问题时，从excel复制到word的表格，导出为PDF文件，然后打印它。我使用Visual Basic来完成所有这些工作。我这样做的原因是因为我在excel中准备了一个报价，在该文件中，有一些表具有引用某些项目的公式。然后，所有内容都导出到word，然后再导出到PDFed，这样我就可以通过电子邮件将其发送给我的客户。

​

最终结果如上所示。表格被复制到word中，word导出到PDF中，然后打印。

​

显示直接从word打印时的最终结果。这是我想要的结果，但是我不能将word文档发送到客户端，它需要是PDFed。

在……里面

，顶部的桌子被屏幕剪裁(使用剪裁工具)并粘贴进去。文件已转换为PDF并打印。现在那张桌子的颜色有点不对劲，但没有长方形。

下面是我使用的代码(以防万一)

'to paste in the table, [w] variable is the word.document
    Worksheets("TABLES").Range("InsuranceTable").Select
    Selection.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
    w.Bookmarks("PreconTable").Range.Paste 'page 4

'to export the word document to PDF. I have tried both with the same result
    ActiveDocument.SaveAs fPath & "\" & fName, wdFormatPDF

    ActiveDocument.ExportAsFixedFormat fPath & "\" & fName, wdExportFormatPDF, True, wdExportOptimizeForPrint

有人知道我为什么要买这些盒子吗？

Answer 1

我怀疑问题的根源是Selection.CopyPicture

我只需使用PasteExcelTable method将其复制并粘贴为表

Worksheets("TABLES").Range("InsuranceTable").Copy
w.Bookmarks("PreconTable").Range.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False