打印word
本帖最后由 sandyvs 于 2025-2-25 12:04 编辑[*]
[*](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")) ) ;excel需要，word不需要
[*] (vl-catch-all-apply 'vlax-put-property (listword '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，还得知道打印机的端口，各位大佬有没有什么好的办法
要PDF的话，高一点版本的word好像可以直接保存为pdf的。https://www.cnblogs.com/lolipop2019/p/14227331.html kozmosovia 发表于 2024-12-9 12:37
要PDF的话，高一点版本的word好像可以直接保存为pdf的。https://www.cnblogs.com/lolipop2019/p/14227331.h ...
直接另存为pdf？可目的就是为了打印到pdffactory，跟excel cad打成一个文件
如果那样，只能打成单个的pdf再合并
即使用PDFFactory合并，也不可能跨软件。三个软件都同时传给PDFFactory，它自动给你合并吧。
再说了，合并PDF，可以用PDFTk kozmosovia 发表于 2024-12-9 13:10
即使用PDFFactory合并，也不可能跨软件。三个软件都同时传给PDFFactory，它自动给你合并吧。
再说了，合并 ...
他用的就是pdffactory啊 头次听说pdffactory还可以跨软件打印PDF并全部合并，还能编程控制。 kozmosovia 发表于 2024-12-10 09:43
头次听说pdffactory还可以跨软件打印PDF并全部合并，还能编程控制。
只要都选pdffactory打印机就打到一起了 还能有这种操作？CAD打印3个PDF，然后Excel打印5个PDF，再Word打印2个PDF，最后能自动按照打印顺序合成一个PDF？ kozmosovia 发表于 2024-12-10 17:35
还能有这种操作？CAD打印3个PDF，然后Excel打印5个PDF，再Word打印2个PDF，最后能自动按照打印顺序合成一个 ...
对啊 ，现在word Excel可以了，正研究dbx呢 怎么设置单双买面，/您说的printout参数怎么写呀，能举例吗
页:
[1]
2