打印word

sandyvs · 发表于 2024-12-9 10:28:52

本帖最后由 sandyvs 于 2024-12-9 12:24 编辑

(defun czx:printdoc (file printer / doc docs word prt)
  (if (findfile file)
(progn
   (setq word (vlax-get-or-create-object "word.Application"));ket.Application
   ;(vlax-put-property word 'Visible t)
   (setq docs (vlax-get-property word 'Documents))
   (setq prt (vlax-get-property word 'ActivePrinter))
   (if printer
      (progn
      (setq printer (strcat printer " 在 " (vl-registry-read (strcat "HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Print\\Printers\\" printer) "port")) )
      (vl-catch-all-apply 'vlax-put-property (list  word 'ActivePrinter printer));设置打印机
      )
   )
   (setq doc (vlax-invoke docs 'Open file));;打开word
   (vlax-invoke-method
      doc
      'PrintOut
   )
   (vlax-put-property word 'ActivePrinter prt)
   (vlax-invoke-method doc 'Close :vlax-false)
)
  )
)
- ;(czx:printdoc "E:\\桌面\\xx.docx" "pdfFactory Pro")

目前问题是不知道怎么设置打印机，如果用printout的参数，Excel可以，word没找到设置打印的参数，只有个ActivePrinterMacGX Variant 类型，可选。该参数仅应用于 Microsoft Office Macintosh 版本。如果用vlax-put-property，还得知道打印机的端口，各位大佬有没有什么好的办法

kozmosovia · 发表于 2024-12-9 12:37:34

要PDF的话，高一点版本的word好像可以直接保存为pdf的。https://www.cnblogs.com/lolipop2019/p/14227331.html

sandyvs · 发表于 2024-12-9 13:05:25

kozmosovia 发表于 2024-12-9 12:37
要PDF的话，高一点版本的word好像可以直接保存为pdf的。https://www.cnblogs.com/lolipop2019/p/14227331.h ...

直接另存为pdf？可目的就是为了打印到pdffactory，跟excel cad打成一个文件

如果那样，只能打成单个的pdf再合并

kozmosovia · 发表于 2024-12-9 13:10:30

即使用PDFFactory合并，也不可能跨软件。三个软件都同时传给PDFFactory，它自动给你合并吧。
再说了，合并PDF，可以用PDFTk

saint008 · 发表于 2024-12-10 08:45:56

kozmosovia 发表于 2024-12-9 13:10
即使用PDFFactory合并，也不可能跨软件。三个软件都同时传给PDFFactory，它自动给你合并吧。
再说了，合并 ...

他用的就是pdffactory啊

kozmosovia · 发表于 2024-12-10 09:43:20

头次听说pdffactory还可以跨软件打印PDF并全部合并，还能编程控制。

sandyvs · 发表于 2024-12-10 17:31:08

kozmosovia 发表于 2024-12-10 09:43
头次听说pdffactory还可以跨软件打印PDF并全部合并，还能编程控制。

只要都选pdffactory打印机就打到一起了

kozmosovia · 发表于 2024-12-10 17:35:02

还能有这种操作？CAD打印3个PDF，然后Excel打印5个PDF，再Word打印2个PDF，最后能自动按照打印顺序合成一个PDF？

sandyvs · 发表于 2024-12-10 17:36:51

kozmosovia 发表于 2024-12-10 17:35
还能有这种操作？CAD打印3个PDF，然后Excel打印5个PDF，再Word打印2个PDF，最后能自动按照打印顺序合成一个 ...

对啊，现在word Excel可以了，正研究dbx呢

zxh92 · 发表于 2024-12-11 12:14:55

怎么设置单双买面，/您说的printout参数怎么写呀，能举例吗

账号		自动登录	找回密码
密码			注册

[讨论] 打印word