「如何用VBA获取当前页页码」

如何用VBA获取当前页页码x＝ｅxecuteexceｌ4maｃro("get.docｕment（５0)")acｈａrｔ.chaｒt．sｅｒiescｏｌｌectｉon[１].naｍｅ：＝'坐标轴申明＇；b.页脚：ｅxceｌapplicａtion1．acｔivesheeｔ.rangｅ[　＇b３:d4'].ｂordeｒｓ[２］.weｉｇhｔ:=　３;beｇｉneｘｃelappｌication1.acｔiveｓhｅeｔ.colｕmns[1].columnswi　dtｈ:=5;ｄimnumｐagｅas　ｉnteｇer1０)配置指定行的高度(单位:磅）(1磅=0.０35厘米)，以第二举动例:nextｈpbonerｒorresumｅnextexceｌaｐp．ｗorkbookｓ．open('c：＼excel＼dｏ.ｘlｓ');msgbｏx　"今朝存储格在第"&　ｎumpage&"页"exｃelapp:＝creａtｅoｌｅobjeｃt(＇exｃel.apｐｌｉcａtiｏn')；enｄiｆ8）给二维图加左标申明ｎumpage=　numpaｇe+vpcａcｈart.chart.axｅs(xｌcａtegory,xlpriｍａry).axistitle.characterｓ.ｔext:='下标申明'；１6）插进去一行或者一列:ｅxｃelａpｐliｃation１.ａｃｔｉvesheｅt.rowｓ[１].font.undｅｒline:=trｕe；excelapｐlication1.ｗｏrｋｓheets[２].ａctiｖatｅ;　或者excｅｌapp.ａｃtivｅwｏrkbｏok.saｖｅd:=true;ｅ.顶边距2ｃｍ:j.页面铅直居中:aｃtivewｉndｏw.viｅw=xlｐagｅbreakprevieｗifｖpb.ｌocａｔｉon.colｕmｎ>ａctiｖｅcｅll.ｃoluｍn　ｔｈeｎ　exitfor25)封闭事情簿：eｘcｅlapplｉｃａtion1.aｃtｉvesheet.ｐｒintprevｉew;achａrt.ｃhart.axes(ｘlvalue,　xlsecondａry)．hastitle　:=trｕe;11)给二维图坐标轴加之申明excelappｌicatiｏn1.workshｅeｔs[1]．ｒows[8]．pagebreak　:=　1;elsec.从a１位置起头粘附:或者ｉfactｉvｅｓheｅt．pageseｔup.orｄｅr　=　ｘlｄowｎthenoｖeｒthｅn14)断根熬头行第四列单位格公式:f.底边距2cm:在foｒm中别离放入eｘcｅlapplication,ｅxcelworｋｂook以及exceｌwｏrkｓｈeeｔ　ifexecｕｔeexｃel4ｍacro(＂geｔ．doｃuｍent(５0）")　=0　thensub逆页序打印()用vｂａ本人只懂患上总页码儿的要领,时下页码儿就难倒我了,还请vba妙手指头教(三)施用delpheｌlo　节制ｅxcｌｅ二维图executeexcel４ｍａcｒo（"print(2,"　＆2*ｊ＆","&2*j　&"，1,,,,,，,,2,，,trｕe,,ｆａlse)＂)ｉ.页面程度居中:acｈart.chａrt.chaｒｔtitle.charaｃtｅrs．text:=’ｅxcle二维图’ｎeｘtｖｐb13)指定边框线宽度：vb以及ｖba常识201０－0９-14　17:57：46阅览1１品题0字号:大中小　定阅=if（iseｒror(mａtch（row(),ｇeｔ.dｏcuｍeｎt(6４），1））,1,ｍａｔ　ｃｈ(roｗ(),geｔ.ｄocuｍeｎt（64）,1)+１）=if(isna(maｔch（column(），get.document(65))),1,ｍatｃｈ(cｏluｍn(）,gｅt.dｏｃument(65))＋１)aｃｈａrt．chaｒｔ.ｐlotarｅａ.widtｈ:=2２3;1２)在第8列以前删去分页符:msｇbｏx＂请将打印纸逆向装入打印机中＂,vbｏkｏｎlｙ,"打印另外一壁"="第"＆if(横当页=1,纵当页，横当页＋纵当页）&"页/共"&总页&"页"要领一,用vｂａfoｒ　eacｈｖpb　inａｃtｉvesheet.ｖｐageｂｒｅaksachａrt:=asheet1.chａrtobjｅcｔｓ.aｄd(1０0,10０，20０,200);nｅxｔ　i11)在第8行以前插进去分页符:excｅlapplｉcａtion１.saｖeａs('c:＼excel\do1.xls')；＜g.左面距2ｃm:ｅndｆunｃtiｏｎｅxｃelａｐplｉcation１.ａctivｅｓheet.printpreｖieｗ;3)新增新事情簿：ｅnｄsub19）打印输出事情 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf ：dｉm　hｐcasintegereｘｃelaｐp.activeshｅet.pagｅseｔup.topmarｇin:=２/0.０3５;exｃeｌapｐｌｉｃatｉon1.acｔｉｖeｓheet.pａgeｓｅtup.headermaｒgｉｎ:=２/0．０3５；endsｕbeｘcelapp.ａctiveshｅet．prｉｎtout；纵向ａctｉveshｅet．vpagｅbｒeａks.coｕnt+1ａcｈarｔ.ｃhart.axes（xｌｖalue,xlprimary)．ｈastitle：=truｅ；4.最后再新增第4个名称,再输入:“页眉”,援用位置:fuｎctiｏnpaｇｅ(）７）给二维图加下标申明ｐtypaｒam,ptｙｐaraｍ，ptypaｒam,ptyｐaｒam，要领二,用宏表函数与公式suｂprintａｃtiveｐage()j.页面铅直居中:2.之后再接续新增第二个名称:“横当页”，鄙人面援用位置处输入:vpc　=ａcｔiｖesheet．vｐaｇｅbreaｋs．ｃｏｕnt+123)事情表另存为：２）增长1个二维图eｎｄ；c.从ａ１位置起头粘附:sｅrｉeｓ.aｄｄ(rａnge,trｕｅ)；ｅxcｅlaｐp.ｗoｒksheetｓ[2]．activate；ｆｏri　＝x　to　1step-1ａ.excelaｐp．activｅsheet.ｒows[２].ｉnsert;excelapplicａtｉｏn1.caｐtion:='应用步伐挪用　ｍicrosoftexｃel';(二)施用deｌｐhelｌo控件要领achart.chart.ｈasｔitlｅ:=tｒue;excelappｌｉcａtion1.ａctivesheet.rowｓ[１］.ｆont．coｌor:=clbｌｕe；exｃｅlaｐplicatｉon1.actiｖesheet.pｒintout;c.页眉到顶点端边距2cm:ｅxceｌaｐp.ａctiｖeｓheet.ｐrinｔｐrevｉｅｗ;在ｅxｃel中配置第几页共几页,绝大部门人会想道用“页面配置”,但你是不是想过将“第n页／总ｍ页”放到肆意单位格中？而不仅只是置于页眉页脚中?ｅxcｅlapｐ.activeshｅeｔ.ｒｏws[1].ｆont．naｍe　:＝'隶字';16)举行页面配置：hpc=aｃtiveｓｈｅet.hpagebrｅaｋs.coｕnｔ+1ｅｘceｌapplicatiｏn1.activeworkbook．sａveｄ　：=　true;ｅxｃelｗｏrksheet1.conｎectｔo（ｔｐ_wｏrｋsheet)；excelapp.ａctiveshｅet.roｗs[１］.font.bold：=tｒue;5.选中需要预示页码儿的单位格,并在单位格输入这个公式:="第＂&if(横当页=1，纵当页,横当页＋纵当页)&"页/共"&总页&"页"，便可获患上需要的页码儿要领二,用宏表函数与公式exｃelapplication1.actｉｖesheet．ｐａgesｅtｕp.bｏttoｍｍａrg　ｉn：=2/0.0３５;5.在函数栏施用应用便可获患上需要的页码儿预示时下页码儿以及勾当文档的总页数:mｓgbox＂thｅseｌｅcｔiｏniｓ　onpaｇe　"&　_seｌection.informａtioｎ(wdacｔiveeｎｄｐａgenumber)　&＂　of　ｐage　"_&selection.information(wdnｕｍbｅｒｏfpaｇesiｎdocumeｎte.顶边距2cm:=ｇet.document(50）+随机()*0４)给二维图赋值ｍsｇｂｏｘ"今朝存储格在第＂&　numpagｅ&＂页＂２1)　事情表另存为：二、在文本框中界说１个名称(好比“　ｐagenumbeｒ”),新增后鄙人面的“援用位置”中输入“=ｉf（isｅrrｏr(ｍatch(rｏw(）,get.document（64),1)),1,match(rｏw（)，gｅｔ.ｄocｕmeｎt(64），１)+１）”　（不含双引号,下同),确定撤退退却出；b.ｅxｃelapp.ａctiｖｅsheet.coluｍｎs［１].ｉnseｒt;eｘcelappliｃａtiｏn１．acｔｉｖesheet.raｎｇe.ｐaｓｔesｐecｉal;在excｅl中把页码儿插进去到除页眉页脚外的肆意单位格中paｇｅ=（aｃtｉｖｅsheｅt.ｈpaｇeｂｒｅａks．count+　１)*(acｔivｅsheet.ｖpageｂrｅaks．coｕnt+　1）sub奇偶页打印()1８)打印预览事情表：excelapｐlicaｔion1.ａctｉvesheeｔ．usｅｄ．ｒanｇe.cｏpｙ;if　iｎtersect(activeｓheet.usedrange,acｔｉvｅcelｌ)ｉsｎoｔhellongtｈeｎeｎd　ifｅxecuｔｅexcel4macro（"pｒiｎt(2,＂　&２　＊i-　１&＂，"　&2*i－　１　＆",1,，，，，,,，2,，,true,，false）")elseｅxcelappｌicatｉｏn1.actｉvesheet．ｐaｇesｅtｕp.cｅnterhoriｚontａlly:=2/0.035；用vbａ本人只懂患上总页码儿的要领，时下页码儿就难倒我了,还请vbａ妙手指头教2010年09月14日serｉes:=ａchaｒｔ．cｈart.serieｓcollｅcｔioｎ；1．起首，按ctrl+ｆ3组合键打开界说名称,再在上边输入“纵当页”,鄙人面援用位置处输入：=get.documeｎｔ(５0）+随机()*0foｒｊ＝1　ｔoｉnt（x/2)+1next获取shｅｅｔ打印页码儿代码:26)退出excel：ｎumpａｇe＝15)配置第二个事情表为勾当事情表：excelａpｐ.ａctivｅsheｅt.pageｓetuｐ.centerverticaｌly:＝　2／0．035;excelapｐliｃatiｏn1.ｑuｉt;=if（isna(maｔcｈ（coｌumn(),gｅt.document（65)）),１,match(colｕｍｎ（),geｔ．ｄocument(65))+１)ｄiｍｖpbaｓ　vｐａgebreａkｐage=（aｃｔｉvｅshｅｅt.hｐagebreaks.ｃｏｕnt　＋1)　*(aｃtiｖｅsheet.vpaｇｅbreaｋｓ.ｃount+　1)3.再输入“总页”；援用位置处输入:ａchａrt.ｃhart．ｃｈarttypｅ:＝４；ｎumpaｇｅ=numpａge+vpc4.最后再界说“页眉”，援用位置:ｅxiｔ　sｕbeｘcｅｌａｐp.ａctｉvesheｅt．raｎge.［'a1'］.ｐasｔespecial;9)　在第8行以前插进去分页符：b.页脚:ｅｘcelappｌｉcaｔioｎ1.actｉｖｅsｈeeｔ．roｗs[1］.ｆｏｎt.bｏｌd：=truｅ;exｃeｌａppｌicatiｏｎ１.actｉveshｅeｔ.coｌｕｍns[4]．pagebｒｅａk：=　0;iｆnｏｔexcelapp.aｃtiveworkｂooｋ.savedｔｈenvarａｓheet1，aｃhart,　rａnge:vaｒiant;c.页眉到顶点端边距2ｃm：excelapp．acｔivesheｅt．pagｅseｔｕp.centerheａｄeｒ:＝　'报演出示';13)配置熬头行字体属性:15)配置熬头行字体属性:ｆori＝1ｔo　int(ｘ/2）＋１'先判断编页码儿的挨次也就是版面设定的循栏列印或者循列列印'取患上页数后再判断今朝存储格是不是在列印规模中nｅxtjexcelｗｏrkbook１．connｅｃttｏ(exceｌａpｐliｃａｔｉoｎ1.workboo　kｓ.add(ptｙpａram，0))；4)　新增新事情簿:１）　预示时下窗户:ifacｔivesheet.ｐagesetup．order=xlｄowntｈenoｖerthenａpplication.screｅnupdaｔing=　tｒueexcelapp.ａctivｅsheet.ｐrintpｒｅvｉew;exｃelapp.qｕｉt;在foｒm中别离放入excelappｌicatｉｏｎ,eｘcelworkbｏok以及exceｌworksｈｅeｔvpc=　1起首始于ｅxｃeｌ　对于象,施用comobj:excｅｌaｐplｉｃaｔｉoｎ1.activeｓheet.ranｇe['a1:e2'　].cｏpy;ｈｐc=1h.右面距2cｍ:enｄiｆａpplicａtion.sｃrｅenupdating=　trueptyparam,ptypａram,ptyｐarａm,ptyparam,0)activｅwｉnｄow.ｖiew=ｘlnormalvieｗ2４）抛却保存到磁盘：ａ.excｅlapｐliｃation1．ａctivｅｓhｅｅt.rows［2］．delete；eｎｄｓuｂeｘcelapp．savｅas(　'c:\excｅｌ＼do1．xlｓ');=iｆ（isna(matｃh(ｒow(),gｅt.ｄocumenｔ(64))),1，maｔch(rｏw(),get.docｕmeｎt(64））+1)b.exceｌａpp.ａctｉvesheet.coluｍns［１]．ｄeleｔｅ;ｅxcelａpplｉcation1.ｗoｒkbｏｏks.open(c：\a．xls三、往后在需要的单位格中输入“＝pａgｅnumber”便可迅速获患上时下页码儿数7)配置指定列的宽度(单位:字符个数),以熬头列为例:2.之后再接续新增第二个名称：“横当页”,鄙人面援用位置处输入:２２)事情表生存:excelapp．ａctivesheet．roｗs[1].font.underliｎｅ　:=　truｅ；k.打印单位格网线:１８)插进去一行或者一列:2２)抛却保存到磁盘：ａ．ｅxcelapｐ．aｃｔiveｓhｅet．roｗs[２].delｅｔe；numpａge＝111）指定边框线宽度：excｅlapｐlicａtｉon１．acｔiｖesheet.pagｅｓetｕp．topmargin:＝2／0.0３5;9)给二维图加右标申明1７)删去一行或者一列:ｘ　=ｅｘecutｅｅxcel4ｍacro("get.document(50)")ｅxceｌａpp.ｖiｓｉｂlｅ:=trｕe;a.复印全般事情表:achart.chart.ａxes(xｌcatｅｇｏry,xｌpｒimaｒy).haｓtitle：＝ｔrｕe;10)转变二维图的预示区巨细excelaｐp.worksshｅets[＇ｓheet2'].actｉvate;applicatiｏn.vｏlatｉle１-左２-右3-顶4-底5-斜(＼)6-斜（　/)exiｔsubvpｃ＝　1ａ.　ｅｘcｅlａpplｉcａtion1.aｃtivｅｓｈeet.rｏws[2].inseｒt;range:=ｓｈeet1!r2ｃ3:r3c９;ｗｏｒksheetｓ.add(ｐtyparaｍ，ptyparａm，ptｙparam,　ptyparam,0)as_ｗorｋsheｅt;b.复印指定地区范围：2)更改　excel标题栏:eｘcelａppｌicaｔｉｏn1.actｉvesheet.rangｅ.[　'a1']．pastｅspecｉal;24）　退出ｅxcｅl:d.从文件尾部起头粘附:exｃｅlaｐplｉcation１.acｔｉvｅsheet.ｐaｇｅseｔｕp．centervert　ically:＝2/0．03５;mｓｇｂox"eｘcel找不到打印的内部实质意义"aｃtｉvｅwindow.vｉeｗ＝xlnormalvieｗ在exｃel的统一事情薄中中,我有两张事情表，一张为日生产进度报表,另外一张为周刊表.我需要用一样的宏语言使成为事实双面打印．但不知怎样计数我用鼠标点这儿的日子处,分页符摆列第几?常识点:哄骗宏表函数ｇｅt.doｃumenｔ来获恰时下打印的总页数,再哄骗pageｓetup．orｄeｒ（打印的秩序序)、ｈｐagebreaks(程度分页符的调集)、ｖpagebreaks(铅直分页符的调集）等属性,来算出activecell(时下单位格)的页码儿２０)　事情表生存:ｅxceｌapp.ｃａption:='应用步伐挪用micｒosｏftexcｅl'；ｂ.excｅlａpplicatｉon1．acｔiｖｅsｈeet．columns[1］．insert;要领一,用vba8)给单位格赋值:2)预示时下窗户：eｎｄifvpｃ=acｔiｖesheｅt．ｖpagebreａks.counｔ　＋1ｍsgbｏｘ　＂excel　找不到列印的内部实质意义"appｌicatｉoｎ.volaｔile１-左　２-右3-顶4-底5-斜(＼)6－斜（/)ptyparａm，ptypaｒａｍ,ｐｔypａｒａm,ptypａram,1．起首:点ctrl＋ｆ3打开界说名称，再在上边输入“纵当页”,鄙人面援用位置处输入：acｔivｅwindｏw.selecｔｅdｓhｅetｓ.priｎtｏut　frｏm:=if.底边距2cｍ:d.页脚到尽头端边距3ｃｍ:1７)复印操作:ifｘ＝０　tｈｅnｅnｄifｅxｃｅlaｐｐ.actｉveｓｈeｅt.ｐａgeｓetup.ｒightmａrｇin　:＝2/0.０35;-*******－---－－-－－-----*****＊*＊**＊＊*****＊**＊＊msｇbox　"今朝存储格不在列印规模中"i.页面程度居中：excｅlａpplicaｔion1.worksｓheｅｔｓ['sｈeｅt2'　］.ａctｉvatｅ；achart．chaｒt．plotａrｅａ.ｌｅft:＝５;aｃhart．charｔ.aｘes（xlvalue,ｘlpriｍａｒｙ).axistiｔle．charａcterｓ.text:＝'左标申明';exitsubeｘcｅlａpp.acｔivesｈｅeｔ.pagｅsetup.ｂottommarｇiｎ:＝２／0.035;1)选择当熬头个事情薄熬头个事情表而在exｃel20０７中则在东西面板上切换到“公式”选项下,在“界说的名称”选项组中点这儿“界说名称”后的下拉箭头,选择“界说名称”后一样打开“新建名称”　会话框,余下的操作跟前边的ｅxcel2０0３不异excelａppｌｉｃaｔiｏn1.actiｖesｈeet.rows[2].ｒｏｗheｉght:＝１/0.０35;／/1厘米g.左面距2cm:eｘｃelapp.ａctivesｈｅｅt.celｌs[1,4］.clｅaｒｃontｅnts;横向activｅsｈeeｔ.hｐａgeｂreakｓ.ｃouｎt+1actｉvｅｗindoｗ.viｅw＝　xlpａgebreaｋpreviｅｗvarｔp_worｋsheｅt:　_wｏｒkｓheｅt;aｐpｌiｃａtｉon.sｃreｅnupdating　=ｔｒueexｃｅlapｐlicatiｏｎ1．ｖisible［0]:=true;７)配置第二个事情表为勾当事情表:k.打印单位格网线:ｅlｓe咱们在ｅｘcel多页生产进度报表打印输出时，要是需要明确某个单位格数值地点的页码儿,即把页码儿放在肆意单位格中,在eｘｃel中配置第几页共几页或者页码儿，绝大部门人会想道用“页面配置”,但你是不是想过将“第n页/总m页”或者页码儿放到肆意单位格中?而不仅只是置于页眉页脚中?ｅxcｅlaｐplｉcatiｏn1.ａctivｅsheet.rows[1]．foｎｔ.naｍｅ:=＇隶字'；*****＊＊**＊***＊＊＊*＊***６)打开已经存在的事情簿：exceｌapp.acｔiｖesheeｔ.pageｓｅｔup．ｃenterhoriｚonｔally:=２/0.035；１４）　举行页面配置：excelapｐｌicatiｏｎ1.ceｌls[１,4].ｖaluｅ：=　'熬头行第四列＇；endsuｂ要领三、用函数使成为事实d.页脚到尽头端边距3cm：6)给单位格赋值:ifvｐｂ．location.colｕmｎ>　activecell．colｕmｎthenexitｆｏrexcelapｐ．aｃtivesｈeet.rａnｇe['a1:e2'］．copy；1０)在第８列以前删去分页符:ifｉｎｔersｅcｔ（actｉvesｈeet.uｓedrange,acｔivecelｌ)iｓｎoｔｈｅｌｌong　ｔheｎa.页眉:dimhpbashpａgeｂrｅaｋnextｈｐｂeｘcelaｐp.ｗorkbｏoks.adｄ;excelａpp．worksheets[1].rows[8].ｐａgebreaｋ:=1;enｄfunctionfunctioｎpaｇe()excelａpp.ａｃｔiveshｅｅt.ranｇe.pａsｔeｓpeciａlｉf　ｈpb．location.roｗ>activｅcell.row　tｈenｅｘｉｔ　fｏrexceｌapplｉcaｔion1.diｓconnect；b.exceｌａpplicａｔioｎ1.acｔivesｈeet.cｏｌｕｍns[1］.ｄｅｌete;acｈaｒt．charｔ.cｈaｒtｔitle.font.size:=6;exceｌapp.activesｈeｅt.pagesetuｐ.prｉｎtｇriｄlines　：＝tｒuｅ;="第"&ｉｆ(横当页=1,纵当页,横当页＋纵当页)&"页/共"&总页&＂页"eｘcｅｌappｌicaｔｉｏn１.acｔivesheeｔ.pａｇesetup.prｉntgrｉdlineｓ　:＝　ｔｒｕe;excelapp.activｅｓheet.rows[２].rowｈeight：＝1/0．035;／/1厘米打印的时辰打印到了哪1页,仿佛很难获患上一)施用动态始于的要领'取患上页数后再判断今朝存储格是不是在列印规模中１5）复印操作:var　excelａpp:vaｒｉant;20)打印预览事情表:onerrorreｓumｅnexｔeｎdif3.之后再接续新增第３个名称再输入:“总页”;援用位置处输入：１）打开ｅxｃelfｏreachhｐb　iｎacｔiｖesｈｅet.hpagebｒeａksachａrt.cｈaｒｔ．aｘes(xlvａｌue，　xlsecondary).ａxistiｔle.cｈaracｔｅｒs.text：＝'右标申明';5)新增新事情表:exceｌａpp.cｅlｌs［1,4].vａlue：=　'熬头行第四列';exｃelａpｐlicatiｏn１.actｉvesheｅt.ｐagｅsｅtｕｐ．leftmargiｎ:=2／0.0３5;ｈｐc　＝13)选择二维图的形态2３)封闭事情簿:８)配置指定行的高度(单位：磅)(1磅=０．０3５厘米),以第二举动例:hpc=activesheeｔ.hpagebｒeakｓ.couｎt+1ｆor　eacｈｖpbinaｃｔｉvesｈeet.vpagｅbｒeaｋs4）　打开已经存在的事情簿:=if（ｉｓna(matｃh(ｒｏw()，gｅt.dｏcｕｍeｎt(6４))），1,match(row（）,ｇeｔ.docuｍent(６4)）+１)9)配置指定列的宽度（单位:字符个数),以熬头列为例:ｅｘceｌａpp.ａctiveshｅet.pａｇeseｔｕp.headerｍarｇin:=２/0．０35；aｃｈart.chart.ploｔarｅa．hｅight:=１0８；activeshｅｅt.priｎtouｔｆｒoｍ:=1，tｏ：=1，ｃopies:=1nuｍpage　=　numpage＋hpｃnumｐａｇｅ=nuｍpａge+hpｃtｐ_ｗorksheet:=excｅlwｏｒkbｏok1.１９)删去一行或者一列：ｅxcｅlａpplｉcatｉon1.actiｖｅsheet.pagesetｕp.heaｄeｒmargｉｎ:=3／0.035;eｘcelaｐｐ．activeshｅet.rｏws[1].ｆoｎt．coｌoｒ：＝clblｕe;iｆｈpb.locatiｏｎ．rｏw　>　actｉveceｌl．ｒowｔheｎexit　foｒb.复印指定地区范围：eｘｃeｌapp.workbooｋs．cｌose；ｅxｃelapplicatioｎ１.activesheet.cells[１，４].cleａrｃont　enｔs;=if(ｉsna(maｔch(cｏｌuｍn（),ｇet．dｏcumenｔ(65)）)，１,ｍatｃh(column（),ｇｅt.ｄｏcｕment（6５)）+１)eｘcｅlapp．acｔｉvｅshｅet.pageｓetｕp.cenｔerfooｔｅｒ:='第&p页';a．复印全般事情表:ｅlｓｅexｃelaｐplication1.ｗorkbｏoks．close；ｅｘcelａpplicatｉon1.ａcｔiveｓｈeet.ｐagesetup．cｅｎtｅｒfｏoｔer:='第&ｐ页';excelapp.activesheet.ｒange['b３:d4']．borders[2]．weiｇht:=3;ifｅxｅｃuteexｃｅl4mａｃro("get．dｏcument(５0)＂)=　1tｈｅｎexｃeｌapplicａtioｎ1.ａctｉvesheeｔ.ｐａｇesetｕp.cｅnteｒhｅaｄ　er:='报演出示'；ｉｆ　nｏtexceｌappliｃation1．activewoｒｋbooｋ．savedtｈen21)打印输出事情表:5)加之二维图的标题foｒ　each　hｐｂinactiｖesheｅt.hpａgｅbreaｋseｘcｅlapｐlicatioｎ１.ｃoｎnｅct；eｘｃeｌaｐp.actiｖeshｅet.useｄ.range.ｃopｙ;endif6)转变二维图的标题字体巨细12)断根熬头行第四列单位格公式:excelapp.ａctivｅｓｈｅet.pagesｅtｕp.leｆtmａrgｉn:=2/0.０３5;mｓgbox＂今朝存储格不在列印规模中"'先判断编页码儿的挨次也就是版面设定的循栏列印或者循列列印ｎeｘｔvｐbdiｍvpcaｓinteｇeｒexcelaｐp．activeｓheet.paｇeｓetｕp.heａｄermarｇin：＝3/０.０３5;ｄ.从文件尾部起头粘附:h.右面距2cｍ:excｅlapp.aｃｔivesheet．ｃoｌumns[4].pagｅbreaｋ:＝0;a.页眉:一、依次执行菜谱“　插进去→名称→界说”号令；ｅｌseasheet1:=excｅｌapｐliｃaｔion１.worｋbooｋｓ[1］.woｒkｓｈｅets[1］；3)更改eｘｃel标题栏：ｅxceｌapplicａtioｎ1.aｃtiｖesheeｔ．pａgeｓetup.rightmaｒgin　:=2/0.03５;excｅlapp．actiｖesheet．columns［1].columnswｉdｔh:＝5;aｐplicａtiｏn．sｃreenupdaｔing=true