客户端用ASP+rds+VBA参生报表
2001-11-14 11:07:01 来源：WEB开发网 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁惧墽鎳撻—鍐偓锝庝簻椤掋垺銇勯幇顖毿撻柟渚垮妼椤粓宕卞Δ鈧獮濠勭磽閸屾艾鈧懓顫濋妸鈺佺疅缂佸顑欓崥瀣煕椤愵偅绶氱紓鍐╂礋濮婂宕掑▎鎴М濠电姭鍋撻梺顒€绉甸幆鐐哄箹濞ｎ剙濡肩紒鎰殜閺屸€愁吋鎼粹€茬敖婵炴垶鎸哥粔鐢稿Φ閸曨垰鍐€妞ゆ劦婢€濞岊亪姊虹紒妯诲蔼闁稿海鏁诲濠氭晲婢跺﹤宓嗛梺缁樺姈缁佹挳宕戦幘璇叉嵍妞ゆ挻绋戞禍鐐叏濡厧浜鹃悗姘炬嫹
闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁惧墽鎳撻—鍐偓锝庝簼閹癸綁鏌ｉ鐐搭棞闁靛棙甯掗～婵嬫晲閸涱剙顥氬┑掳鍊楁慨鐑藉磻濞戔懞鍥偨缁嬫寧鐎梺鐟板⒔缁垶宕戦幇鐗堢厵缂備焦锚缁椦囨煃瑜滈崜锕傚矗閸愵煈娼栭柛婵嗗珔瑜斿畷鎯邦槾濞寸姴銈稿铏规嫚閼碱剛顔夐梺鐓庣秺缁犳牠骞冩ィ鍐╁€婚柦妯侯槼閹芥洟姊洪棃娑辨濠碘€虫喘瀹曘垽鎮介崨濞炬嫼闁荤喐鐟ョ€氱兘宕箛娑欑厱闁绘ê纾晶鐢告煏閸℃鈧湱缂撴禒瀣窛濠电姴瀚獮鍫ユ⒑绾懎顥嶉柟娲讳簽濡叉劙寮撮悢鍝勨叞闂傚倸鍊风欢姘缚瑜嶇叅闁靛牆娲犻崑鎾愁潩椤愩垹绁梺缁樹緱閸ｏ綁鐛幒鎳虫棃鍩€椤掑倻涓嶉柨婵嗘缁♀偓闂傚倸鐗婄粙鎴﹀汲濞嗗緷鐟扳堪閸垻鏆梺鍝勭焿缂嶄焦鎱ㄩ埀顒勬煃閹増纭炬繝鈧潏銊х彾闁哄洨鍠撶弧鈧┑顔斤供閸橀箖宕㈤悽鍛娾拺缂備焦锚婵箓鏌涢幘鏉戝摵闁诡喗蓱濞煎繘濡搁妶鍥╃暰闂備礁婀辩划顖滄暜閻愬瓨娅犳繛鎴炴皑绾捐偐绱撴担璐細婵炴彃顕埀顒冾潐濞叉牕鐣烽鍐簷闂備礁鎲￠崝鏇㈠疮閻樿绀堟繝闈涚墛瀹曞弶绻涢幋鐐ㄧ細闁哄棗妫楅埞鎴︽偐鏉堫偄鍘￠梺杞扮劍閻楁粎妲愰幘瀛樺濞寸姴顑呴幗鐢告⒑閸︻厽鍤€婵炲眰鍊濋幃楣冩倻閽樺顔婇梺瑙勬儗閸樹粙宕撻悽鍛娾拺闁荤喐婢橀幃渚€鏌ｉ幒鐐电暤闁诡喗顨婇獮鏍ㄦ媴閸忓瀚藉┑鐐舵彧缁插潡宕曢妶澶婂惞闁逞屽墴濮婃椽骞栭悙娴嬪亾閺嶎厽鍋嬮柣妯垮吹瀹撲線鐓崶銊р姇闁哄懏鎮傞弻銊╂偆閸屾稑顏�
婵犵數濮烽弫鍛婃叏閻戣棄鏋侀柛娑橈攻閸欏繘鏌ｉ幋锝嗩棄闁哄绶氶弻娑樷槈濮楀牊鏁鹃梺鍛婄懃缁绘垿濡甸崟顖氱闁告鍋熸禒鑲╃磽娴ｅ搫顎岄柛銊ョ埣瀵鈽夐姀鐘电杸闂傚倸鐗婄粙鎺楁倶閸儲鍊甸柣鐔哄閸熺偟绱掔拠鎻掓殻濠碉紕鏁诲畷鐔碱敍濮橀硸鍟嬮梺璇查叄濞佳囧箺濠婂牊鍋╁┑鍌氭啞閳锋垹鐥鐐村婵炲吋鍔栫换娑㈡嚑椤掆偓閺嬪孩銇勯銏㈢缂佽鲸甯掕灒闁兼祴鏅滈崵宀勬⒒娓氣偓閳ь剛鍋涢懟顖涙櫠椤旇偐鏆嗛柨婵嗙墕閸斿灚銇勯敂鐣屽弨闁诡噯绻濇俊鑸靛緞鐎ｎ剙甯鹃梻浣稿閸嬪懐鎹㈤崘顔肩；妞ゅ繐鎳愮粻鍓р偓鐟板閸犳洜鑺辨繝姘畾闁绘柨鍚嬮埛鎴︽倵閸︻厼校闁靛棗鍟撮弻銈夊礃閼碱剙鐓熼悗瑙勬礃缁诲牓寮崘顔肩劦妞ゆ帒瀚ч埀顒佹瀹曟﹢顢欓崲澹洦鐓曢柍鈺佸枤濞堟﹢鏌ｉ悢绋垮婵﹥妞介幃鈩冩償閳╁啯鐦ｉ梻浣虹帛閻楁洟濡剁粙璺ㄦ殾闁绘垶岣跨弧鈧梺鎼炲劀閸愩劎銈梻鍌欑窔濞佳勵殽韫囨洘顫曢柡鍥ュ灩閸屻劍銇勮箛鎾跺闁抽攱鍨块弻鐔兼嚃閳轰椒绮堕梺鍛婃⒐椤ㄥ﹪寮婚敓鐘插窛妞ゆ棃鏁慨鍥╃磽娴ｇǹ鈧湱鏁悢濡撳洨鈧潧鎽滅壕濂稿级閸稑濡肩紒妤佺缁绘盯鎮℃惔锝囶啋闂佺硶鏂侀崜婵嬪箯閸涘瓨鐓ラ悗锝呯仛缂嶆姊婚崒姘偓宄懊归崶褜娴栭柕濞炬櫆閸婂潡鏌ㄩ弴鐐测偓鍝ョ不閺屻儲鐓曢柕澶樺枛婢ь噣鏌＄€ｂ晝绐旈柡宀€鍠栧畷婊嗩槾閻㈩垱鐩弻锟犲川椤旇棄鈧劙鏌＄仦璇插闁诡喓鍊濆畷鎺戔槈濮楀棔绱�闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁惧墽鎳撻—鍐偓锝庝簻椤掋垺銇勯幇顖毿撻柟渚垮妼椤粓宕卞Δ鈧獮濠勭磽閸屾艾鈧懓顫濋妸鈺佺疅缂佸顑欓崥瀣煕椤愵偅绶氱紓鍐╂礋濮婂宕掑▎鎴М濠电姭鍋撻梺顒€绉甸幆鐐哄箹濞ｎ剙濡肩紒鎰殜閺屸€愁吋鎼粹€茬敖婵炴垶鎸哥粔鐢稿Φ閸曨垰鍐€妞ゆ劦婢€濞岊亪姊虹紒妯诲蔼闁稿海鏁诲濠氭晲婢跺﹤宓嗛梺缁樺姈缁佹挳宕戦幘璇叉嵍妞ゆ挻绋戞禍鐐叏濡厧浜鹃悗姘炬嫹 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁炬儳缍婇弻锝夊箣閿濆憛鎾绘煕閵堝懎顏柡灞诲€濆畷顐﹀Ψ閿旇姤鐦庡┑鐐差嚟婵潧顫濋妸褎顫曢柟鎹愵嚙绾惧吋绻涢崱妯虹瑨闁告﹫绱曠槐鎾寸瑹閸パ勭彯闂佹悶鍔岄悥鍏间繆閹绢喖绀冩い鏃傚帶缁愭盯姊洪崫鍕垫Ч闁搞劌缍婂畷銏犆洪鍛偓鍨殽閻愯尙浠㈤柛鏃€纰嶉妵鍕晜鐠囪尙浠搁悗瑙勬穿缁绘繈鐛惔銊﹀殟闁靛／鍐ㄥ闂傚倸饪撮崑鍕洪敃鈧叅闁哄秲鍔庢晶锟犳⒒閸屾瑦绁版い鏇嗗應鍋撻崹顐㈡诞鐎规洘绮撻幃銏＄附婢跺绋侀梻浣瑰劤缁绘劕锕㈡潏鈺侇棜闁稿繘妫跨换鍡樸亜閺嶃劎顣查柟顖氱墛閵囧嫰顢曢姀銏㈠姱濠殿喖锕ㄥ▍锝夊箯閻樼粯鍤戞い鎺戝亞閸炶绻濆▓鍨灍閼垦囨煕閺冣偓閸ㄥ灝鐣峰ú顏勭劦妞ゆ帊闄嶆禍婊堟煙閸濆嫮肖妞わ讣绠撻弻娑㈠Χ鎼粹€斥拫闂佸搫鏈惄顖炵嵁濡吋宕夐柣鎴炨缚閳ь剝顕ч—鍐Χ鎼粹€茬盎缂備胶绮崝妤呭矗閸涱収娓婚柕鍫濇噽缁犱即鎮楀鐓庡⒋闁诡喗顨婇、姗€鎮滈崱妯虹槣闂備線娼ч悧鍡椢涘▎鎴犵焼闁逞屽墴濮婃椽鎮烽弶鎸庢瘣闂備礁搴滅徊浠嬫偩瀹勬壋鍫柛鏇ㄥ亽閸ゃ倝鏌ｆ惔銏⑩姇閼裤倝鏌熼柨瀣仢婵﹦绮粭鐔煎炊瑜岀花浠嬫⒑缁嬫鍎愰柣鈺婂灦楠炲﹪鎮㈢喊杈ㄦ櫖濠电偞鍨堕悷锕傛偟瀹勯偊娓婚柕鍫濇閻撱儱顭胯閺咁偅绔熼弴銏″亗閹兼惌鍠氶崬鐢告煟閻樼儤顏犻悘蹇嬪姂瀹曟繈鎮㈤搹鍦紲婵犮垼娉涚€涒晠顢旈悩缁樼厓鐟滄粓宕滃棰濇晩闁哄稁鍘肩粣妤呮煛瀹ュ骸骞愰柍褜鍓ㄧ粻鎾诲蓟閵娧€鍋撻敐鍌涙珖缂佺姵鑹鹃埞鎴︻敊閻ｅ瞼鐣甸梺娲诲幖閻楀棗宓勯梺缁樺灱婵倝鍩涢幋鐘电＜閻庯綆鍋掗崕銉╂煕鎼淬垹濮嶉柡宀€鍠栭幃鐑芥偋閸喐鍊烽梺鎹愬吹閸嬨倝寮诲☉銏犵疀闁宠桨绀佸敮婵犵鍓濊ぐ鍐偋婵犲嫭宕叉繛鎴欏灩楠炪垺淇婇妶鍛殶妞ゆ柨顦埞鎴︽倷閼碱剙顤€闂佹寧娲忛崹褰掞綖韫囨洜纾兼俊顖濐嚙椤庢挻淇婇悙宸剰缂併劏鍋愰幉浼村幢濞嗘垹锛濋梺绋挎湰濮樸劏鈪甸梻浣呵归鍡涘箰閼姐倖宕叉繛鎴炲焹閸嬫挸鈽夊▎瀣窗闂佹椿鍘归崐婵嬪蓟濞戙垹绠婚悹铏瑰劋閻忓牓鎮楃憴鍕婵＄偘绮欏畷娲焵椤掍降浜滈柟鍝勭Ч濡惧嘲霉濠婂嫮鐭掗柡宀€鍠栭幃婊兾熼搹閫涙樊闂備線鈧偛鑻晶顔剧磽瀹ュ拑宸ユい鏇秮楠炲海绮电€ｎ偅娅岄梻浣告啞濞诧箓宕滃☉銏犲偍闂侇剙绉甸悡鐔煎箹閹碱厼鐏ｇ紒澶愭涧闇夋繝濠傛噹閸樻挳鏌ｉ幙鍐ㄥ⒋妞ゃ垺顨婂畷鎺懳旈埀顒佺妤ｅ啯鍋℃繛鍡楃箰椤忣亞鐥幆褜鐓奸柡灞剧☉铻栭柍褜鍓熷畷顖炲锤濡ゅ﹥鏅梺鎸庣箓椤︻垳澹曡ぐ鎺撶厽闁哄洦姘ㄩ崝宥夋鐎ｎ喗鈷掗柛灞剧懅椤︼箓鏌熺喊鍗炰簻閾荤偤鎮楅棃娑欐喐濞戞挸绉归弻鐔煎箲閹伴潧娈梺钘夊暟閸犳牠寮婚弴鐔虹闁绘劦鍓氶悵鏇㈡⒑缁嬫鍎忔俊顐ｇ箞瀵鈽夊顐ｅ媰闂佸憡鎸嗛埀顒€危閸繍娓婚柕鍫濇嚇閻涙粓鏌熼崙銈嗗
核心提示：test_PRint_report.asp<html><head><meta content="text/html; charset=BIG5" http-equiv="Content-Type"><title>client use
test_PRint_report.asp
<html>
<head>
<meta content="text/html; charset=BIG5" http-equiv="Content-Type">
<title>client use rds produce Excel report</title>
</head>
<body bgColor="skyblue" topMargin=0 leftMargin="20" oncontextmenu="return false" rightMargin="0" bottomMargin="0">
<form action="test_print_report.asp" method="post" name="myform">
<div align="center"><center>
<table border="5" bgcolor="#ffe4b5" style="HEIGHT: 1px; TOP: 0px" bordercolor="#0000ff">
<tr>
<td align="middle" bgcolor="#ffffff" bordercolor="#000080">
<font color="#000080" size="3">
client use rds produce excel report
</font>
</td>
</tr>
</table>
</div>
<div align="left">
<input type="button" value="Query Data" name="query" language="vbscript" onclick="fun_query()" style="HEIGHT: 32px; WIDTH: 90px">
<input type="button" value="Clear Data" name="Clear" language="vbscript" onclick="fun_clear()" style="HEIGHT: 32px; WIDTH: 90px">
<input type="button" value="Excel Report" name="report" language="vbscript" onclick="fun_excel()" style="HEIGHT: 32px; WIDTH: 90px">
</div>
<div id="adddata"></div>
</form></center>
</body>
</html>
<script language="vbscript">
dim rds,rs,df
dim strSQL,StrRs,strCn,RowCnt
dim xlApp, xlBook, xlSheet1,xlmodule,XlPageSetup
dim HeadRowCnt,TitleRowCnt,ContentRowCnt,FootRowCnt
dim PageRowCnt,PageNo,TotalPageCnt,ContentRowNowCnt
dim ColumnAllWidth,ColumnAWidth,ColumnBWidth,ColumnCWidth,ColumnDWidth
sub fun_query()
set rds = CreateObject("RDS.DataSpace")
Set df = rds.CreateObject("RDSServer.DataFactory","http://iscs00074")
strCn="DRIVER={SQL Server};SERVER=iscs00074;UID=sa;APP=Microsoft Development Environment;DATABASE=pubs;User Id=sa;PASSWord=;"
strSQL = "Select * from jobs"
Set rs = df.Query(strCn, strSQL)
if not rs.eof then
StrRs="<table border=1><tr><td>job_id</td><td>job_desc</td><td>max_lvl</td><td>min_lvl</td></tr><tr><td>"+ rs.GetString(,,"</td><td>","</td></tr><tr><td>"," ") +"</td></tr></table>"
adddata.innerHTML=StrRs
StrRs=""
else
msgbox "No data in the table!"
end if
end sub
sub fun_clear()
StrRs=""
adddata.innerHTML=StrRs
end sub
sub fun_excel()
set rds = CreateObject("RDS.DataSpace")
Set df = rds.CreateObject("RDSServer.DataFactory","http://iscs00074")
strCn="DRIVER={SQL Server};SERVER=iscs00074;UID=sa;APP=Microsoft Development Environment;DATABASE=pubs;User Id=sa;PASSWORD=;"
strSQL = "Select count(*) as recordcnt from jobs"
Set rs = df.Query(strCn, strSQL)
TotalPageCnt=rs("recordcnt")
rs.close
set rs=nothing
strSQL = "Select * from jobs"
Set rs = df.Query(strCn, strSQL)
Set xlApp = CreateObject("EXCEL.application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet1 = xlBook.ActiveSheet
Set xlmodule = xlbook.VBProject.VBComponents.Add(1)
xlSheet1.Application.Visible = True
xlSheet1.Application.UserControl = True
i=0
RowCnt=1
PageNo=1
HeadRowCnt=4 'The header number to print in one page!
TitleRowCnt=3 'The title number to print in one page!
ContentRowCnt=6 'The record number to print in one page!
FootRowCnt=1 'The footer number to print in one page!
PageRowCnt=HeadRowCnt+TitleRowCnt+ContentRowCnt+FootRowCnt
TotalPageCnt=int((TotalPageCnt+ContentRowCnt-1)/ContentRowCnt)
ColumnAWidth=5 'The ColumnA Width!
ColumnBWidth=30 'The ColumnB Width!
ColumnCWidth=5 'The ColumnC Width!
ColumnDWidth=5 'The ColumnD Width!
'Add the Head and Title
call head_title
'Add the Data
do while not rs.eof
With xlSheet1
.cells(RowCnt,1).value = rs(0)
.cells(RowCnt,2).value = rs(1)
.cells(RowCnt,3).value = rs(2)
.cells(RowCnt,4).value = rs(3)
end with
rs.movenext
ContentRowNowCnt=ContentRowNowCnt+1
if not rs.eof then
if ContentRowNowCnt mod (ContentRowCnt) =0 then
ContentRowNowCnt=0
RowCnt = cint(RowCnt) + 1
'Add the Foot
call foot_title
'Add the Head and Title
call head_title
else
RowCnt = cint(RowCnt) + 1
end if
else
RowCnt = cint(RowCnt) + 1
call foot_title
end if
loop
'Format the Grid and Font
call format_grid
'Release References
'XLSheet1.PrintOut
'xlBook.Saved = True
Set xlmodule = Nothing
Set xlSheet1 = Nothing
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
rs.close
set rs=nothing
end sub
sub head_title()
dim HeadRow
HeadRow=1
do while HeadRow<= HeadRowCnt
With xlSheet1
.range("C"+trim(RowCnt)+":"+"D"+trim(RowCnt)).merge
end with
RowCnt=RowCnt+1
HeadRow=HeadRow+1
loop
'Format the head name of cells (The new page of row=5,6,7)
With xlSheet1
.Cells(RowCnt-3, 2).Value = "THE JOB INFORMATION TABLE"
.Cells(RowCnt-3, 3).Value = date()
.Cells(RowCnt-4, 3).Value = "The "+trim(PageNo)+"/"+trim(TotalPageCnt) +" Pages"
end with
'Format the title field name of cells
With xlSheet1
.range("A"+trim(RowCnt) +":B"+trim(RowCnt)).merge
.range("A"+trim(RowCnt+1) +":A"+trim(RowCnt+2)).merge
.range("B"+trim(RowCnt+1) +":B"+trim(RowCnt+2)).merge
.range("C"+trim(RowCnt) +":D"+trim(RowCnt)).merge
.range("C"+trim(RowCnt+1) +":C"+trim(RowCnt+2)).merge
.range("D"+trim(RowCnt+1) +":D"+trim(RowCnt+2)).merge
.Cells(RowCnt, 1).Value = "The job"
.Cells(RowCnt+1,1).Value = "job_id"
.Cells(RowCnt+1,2).Value = "job_desc"
.Cells(RowCnt, 3).Value = "Level"
.Cells(RowCnt+1,3).Value = "Max level"
.Cells(RowCnt+1,4).Value = "Min level"
End With
RowCnt=int(RowCnt)+3
PageNo=PageNo+1
end sub
sub foot_title()
dim FootRow
FootRow=1
do while FootRow<= FootRowCnt
With xlSheet1
.range("C"+trim(RowCnt)+":"+"D"+trim(RowCnt)).merge
end with
RowCnt=RowCnt+1
FootRow=FootRow+1
loop
With xlSheet1
.Cells(RowCnt-1, 1).Value = "A:"
.Cells(RowCnt-1, 2).Value = "B:"
.Cells(RowCnt-1, 3).Value = "C:"
end with
end sub
sub format_grid()
dim strCode
dim MyMacro
strCode = _
"sub MyMacro() " & vbCr & _
"dim HeadRowCnt" & vbCr & _
"dim TitleRowCnt" & vbCr & _
"dim ContentRowCnt" & vbCr & _
"dim FootRowCnt" & vbCr & _
"dim PageRowCnt" & vbCr & _
"dim BgnCnt" & vbCr & _
"HeadRowCnt="& HeadRowCnt &"" & vbCr & _
"TitleRowCnt="& TitleRowCnt &"" & vbCr & _
"ContentRowCnt="& ContentRowCnt &"" & vbCr & _
"FootRowCnt="& FootRowCnt &"" & vbCr & _
"PageRowCnt=HeadRowCnt+TitleRowCnt+ContentRowCnt+FootRowCnt" & vbCr & _
"BgnCnt=1" & vbCr & _
"PageNo=1" & vbCr & _
"Range(""A""+trim(BgnCnt)+"":D""+trim(BgnCnt)).Select" & vbCr & _
"With sheet1" & vbCr & _
" .Range(""A1"").ColumnWidth = "& ColumnAWidth&"" & vbCr & _
" .Range(""B1"").ColumnWidth = "& ColumnBWidth&"" & vbCr & _
" .Range(""C1"").ColumnWidth = "& ColumnCWidth&"" & vbCr & _
" .Range(""D1"").ColumnWidth = "& ColumnDWidth&"" & vbCr & _
"End With" & vbCr & _
"do while PageNo<= "& TotalPageCnt&"" & vbCr & _
"if PageNo= "& TotalPageCnt& " then" & vbCr & _
" ContentRowCnt="& ContentRowNowCnt &"" & vbCr & _
" PageRowCnt=HeadRowCnt+TitleRowCnt+ContentRowCnt+FootRowCnt" & vbCr & _
"end if" & vbCr & _
"Range(""A""+trim(BgnCnt)+"":D""+trim(BgnCnt+PageRowCnt-1)).Select" & vbCr & _
"With Range(""A""+trim(BgnCnt)+"":D""+trim(BgnCnt+PageRowCnt-1))" & vbCr & _
" .Borders.LineStyle = xlContnuous" & vbCr & _
" .Borders.Weight = xlThin" & vbCr & _
" .Borders.ColorIndex = 10" & vbCr & _
" .RowHeight = 15" & vbCr & _
" .VerticalAlignment = xlCenter" & vbCr & _
" .HorizontalAlignment = xlLeft" & vbCr & _
" .Font.Size = 9" & vbCr & _
"End With" & vbCr & _
"With Range(""A""+trim(BgnCnt)+"":D""+trim(BgnCnt+HeadRowCnt-1))" & vbCr & _
" .Font.Size = 11" & vbCr & _
" .Font.Bold = True" & vbCr & _
" .Borders.LineStyle = xlLineStyleNone" & vbCr & _
" .VerticalAlignment = xlCenter" & vbCr & _
" .HorizontalAlignment = xlCenter" & vbCr & _
" .Orientation = xlHorizontal" & vbCr & _
"End With" & vbCr & _
"With Range(""A""+trim(BgnCnt+HeadRowCnt)+"":D""+trim(BgnCnt+HeadRowCnt+TitleRowCnt-1))" & vbCr & _
" .WrapText = True" & vbCr & _
" .Font.Size = 9" & vbCr & _
" .Font.Bold = True" & vbCr & _
" .VerticalAlignment = xlCenter" & vbCr & _
" .HorizontalAlignment = xlCenter" & vbCr & _
" .Orientation = xlHorizontal" & vbCr & _
"end With" & vbCr & _
"With Range(""A""+trim(BgnCnt+HeadRowCnt+TitleRowCnt+ContentRowCnt)+"":D""+trim(BgnCnt+HeadRowCnt+TitleRowCnt+ContentRowCnt+FootRowCnt-1))" & vbCr & _
" .Font.Size = 9" & vbCr & _
" .Font.Bold = True" & vbCr & _
" .Borders.LineStyle = xlLineStyleNone" & vbCr & _
" .VerticalAlignment = xlCenter" & vbCr & _
" .HorizontalAlignment = xlLeft" & vbCr & _
" .Orientation = xlHorizontal" & vbCr & _
"end With" & vbCr & _
"PageNo=PageNo+1" & vbCr & _
"BgnCnt=BgnCnt+PageRowCnt" & vbCr & _
"loop" & vbCr & _
"With Sheet1.PageSetup" & vbCr & _
" .HeaderMargin = application.CentimetersToPoints(0)" & vbCr & _
" .LeftMargin = application.CentimetersToPoints(2)" & vbCr & _
" .RightMargin =application.CentimetersToPoints(2)" & vbCr & _
" .TopMargin = application.CentimetersToPoints(1)" & vbCr & _
" .BottomMargin = application.CentimetersToPoints(1)" & vbCr & _
" .FooterMargin = application.CentimetersToPoints(0)" & vbCr & _
"' .Orientation = xlLandscape" & vbCr & _
" .Orientation = xlPortrait" & vbCr & _
" .CenterHorizontally = True" & vbCr & _
" .CenterVertically = False" & vbCr & _
" .PaperSize = xlPaperA4" & vbCr & _
"End With" & vbCr & _
"Range(""A1"").Select" & vbCr & _
"end sub"
xlmodule.CodeModule.AddFromString (strCode)
xlApp.Run "MyMacro"
end sub
</script>
- ››asp.net页面弄成伪静态页面
- ››Asp.net 中将汉字转换成拼音的方法
- ››ASP.NET及JS中的cookie基本用法
- ››ASP.NET获取MS SQL Server安装实例
- ››asp.net实现调用百度pai 在线翻译英文转中文
- ››ASP.NET页面选项进行提示判断
- ››Asp.net定时执行程序
- ››ASP.NET中利用DataList实现图片无缝滚动
- ››ASP.NET验证控件RequiredFieldValidator
- ››ASP.NET中使用System.Net.Mail发邮件
- ››ASP.NET中获取用户控件中控件的ID
- ››ASP.NET中FileBytes写成文件并存档
中查找“客户端用ASP+rds+VBA参生报表”更多相关内容
中查找“客户端用ASP+rds+VBA参生报表”更多相关内容更多精彩
赞助商链接
