请问如何使用Lisp设置Excel打印顶端标题、页眉、页脚等
请问如何使用Lisp设置Excel打印顶端标题、页眉、页脚等
请高手指点指点 再请高手指点指点 自己顶自己
(vlax-put-property (vlax-get-property xlsheet "PageSetup") "PrintTitleRows" "$2:$2")
(vlax-put-property (vlax-get-property xlsheet "PageSetup") "LeftFooter" "备注：xxx")
(vlax-put-property (vlax-get-property xlsheet "PageSetup") "RightFooter" "时间：xxx") 本帖最后由 llsheng_73 于 2016-7-31 14:16 编辑
itoboy 发表于 2016-7-31 11:12 http://bbs.mjtd.com/static/image/common/back.gif
自己顶自己
(vlax-put-property (vlax-get-property xlsheet "PageSetup") "PrintTitleRows" "$2:$2")
(v ...
(defun vlxls-put-pagesetup(xlapp sheet hea top bot fot lef rig hori vert b5 ZH Header Footer fit / sh);;设置版面
(vlax-for sh(vlax-get-property Xlapp"sheets")(IF(=(msxl-get-name sh)sheet)(setq xl-page(msxl-get-pagesetup sh))))
(msxl-put-footermargin xl-page(* fot 28.3465))
(msxl-put-headermargin xl-page(* hea 28.3465))
(msxl-put-leftmargin xl-page(* lef 28.3465))
(msxl-put-rightmargin xl-page(* 28.3465 rig))
(msxl-put-topmargin xl-page(* top 28.3465))
(msxl-put-bottommargin xl-page(* bot 28.3465))
(msxl-put-CenterHorizontally xl-page hori)
(msxl-put-CenterVertically xl-page vert)
(msxl-put-PaperSize xl-page b5)
(msxl-put-Orientation xl-page ZH)
(msxl-put-CenterHeader xl-page(if(cadr Header)(cadr Header)""))
(msxl-put-LeftHeader xl-page(if(car Header)(car Header)""))
(msxl-put-RightHeader xl-page(if(last Header)(last Header)""))
(msxl-put-CenterFooter xl-page(if(cadr Footer)(cadr Footer)""))
(msxl-put-LeftFooter xl-page(if(car Footer)(car Footer)""))
(msxl-put-RightFooter xl-page(if(last Footer)(last Footer)""))
(msxl-put-AlignMarginsHeaderFooter xl-page fit))
页:
[1]