请问如何使用Lisp设置Excel打印顶端标题、页眉、页脚等

itoboy

请问如何使用Lisp设置Excel打印顶端标题、页眉、页脚等

itoboy

请高手指点指点

itoboy

再请高手指点指点

itoboy

自己顶自己
(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

itoboy 发表于 2016-7-31 11:12
自己顶自己
(vlax-put-property (vlax-get-property xlsheet "PageSetup") "PrintTitleRows" "$2:$2")
(v ...

1. (defun vlxls-put-pagesetup(xlapp sheet hea top bot fot lef rig hori vert b5 ZH Header Footer fit / sh);;设置版面
   
2.   (vlax-for sh(vlax-get-property Xlapp"sheets")(IF(=(msxl-get-name sh)sheet)(setq xl-page(msxl-get-pagesetup sh))))
   
3.   (msxl-put-footermargin xl-page(* fot 28.3465))
   
4.   (msxl-put-headermargin xl-page(* hea 28.3465))
   
5.   (msxl-put-leftmargin xl-page(* lef 28.3465))
   
6.   (msxl-put-rightmargin xl-page(* 28.3465 rig))
   
7.   (msxl-put-topmargin xl-page(* top 28.3465))
   
8.   (msxl-put-bottommargin xl-page(* bot 28.3465))
   
9.   (msxl-put-CenterHorizontally xl-page hori)
   
10.   (msxl-put-CenterVertically xl-page vert)
    
11.   (msxl-put-PaperSize xl-page b5)
    
12.   (msxl-put-Orientation xl-page ZH)
    
13.   (msxl-put-CenterHeader xl-page(if(cadr Header)(cadr Header)""))
    
14.   (msxl-put-LeftHeader xl-page(if(car Header)(car Header)""))
    
15.   (msxl-put-RightHeader xl-page(if(last Header)(last Header)""))
    
16.   (msxl-put-CenterFooter xl-page(if(cadr Footer)(cadr Footer)""))
    
17.   (msxl-put-LeftFooter xl-page(if(car Footer)(car Footer)""))
    
18.   (msxl-put-RightFooter xl-page(if(last Footer)(last Footer)""))
    
19.   (msxl-put-AlignMarginsHeaderFooter xl-page fit))

(defun vlxls-put-pagesetup(xlapp sheet hea top bot fot lef rig hori vert b5 ZH Header Footer fit / sh);;设置版面<br />   (vlax-for sh(vlax-get-property Xlapp"sheets")(IF(=(msxl-get-name sh)sheet)(setq xl-page(msxl-get-pagesetup sh))))<br />   (msxl-put-footermargin xl-page(* fot 28.3465))<br />   (msxl-put-headermargin xl-page(* hea 28.3465))<br />   (msxl-put-leftmargin xl-page(* lef 28.3465))<br />   (msxl-put-rightmargin xl-page(* 28.3465 rig))<br />   (msxl-put-topmargin xl-page(* top 28.3465))<br />   (msxl-put-bottommargin xl-page(* bot 28.3465))<br />   (msxl-put-CenterHorizontally xl-page hori)<br />   (msxl-put-CenterVertically xl-page vert)<br />   (msxl-put-PaperSize xl-page b5)<br />   (msxl-put-Orientation xl-page ZH)<br />   (msxl-put-CenterHeader xl-page(if(cadr Header)(cadr Header)""))<br />   (msxl-put-LeftHeader xl-page(if(car Header)(car Header)""))<br />   (msxl-put-RightHeader xl-page(if(last Header)(last Header)""))<br />   (msxl-put-CenterFooter xl-page(if(cadr Footer)(cadr Footer)""))<br />   (msxl-put-LeftFooter xl-page(if(car Footer)(car Footer)""))<br />   (msxl-put-RightFooter xl-page(if(last Footer)(last Footer)""))<br />   (msxl-put-AlignMarginsHeaderFooter xl-page fit))