表格列印按鈕怎麼寫程序

『壹』 求用EXCEL宏批量列印的代碼 。

你是要 （1）將Sheet1的各行內容全部逐一引入「列印」表中，列印。

還是（2）根據P2的內容，到Sheet1中打出 對應在行的內容，引入「列印」表中，列印。

我大概以（1）的要求寫個粗略的程序，你修改後調試執行吧：

1、先選擇「列印」表，設定列印區域，請選擇你要列印的區域，在頁面布局-列印區域-設置列印區域，這樣區域外的內容不會被列印。

2、在列印區域外，用菜單-開發工具-插入-按鈕，按內容為「列印全部表格」，

3、在宏-編輯中，選擇「按鈕1_Click」，輸入下面的宏指令，我只是寫上一些關鍵的語句，你可按具體要求補充完整。原答案被判違規現修改，感謝審核的放行。謝謝！

PublicaAsString,bAsString,cAsString,dAsString,eAsString,fAsString,gAsString'定義公共變數

PublichAsString,iAsString,jAsString,kAsString,lAsString,mAsString,LastRowAsInteger
Sub按鈕1_Click()
Sheets("sheet1").Select'選擇Sheet1工作表
LastRow=Cells(Rows.Count,1).End(xlUp).Row'求出表格內容的最後一行行號
Forx=2ToLastRow'從第二行的內容開始到最後一行
a=Cells(x,1)'合同編號客戶名稱將對應行的內容讀入變數中
b=Cells(x,2)'合同編號Cells(x,2)的意思是第x行第2列的單元格內容
c=Cells(x,3)'客戶名稱a~m是變數，存放x行中各單元格的資料
d=Cells(x,4)'區域經理
e=Cells(x,5)'代理商
f=Cells(x,6)'函件單號
g=Cells(x,7)'是否回函
h=Cells(x,8)'合同總價
i=Cells(x,9)'到款金額
j=Cells(x,10)'合同餘款
k=Cells(x,11)'截止開票金額
l=Cells(x,12)'開票金額
m=Cells(x,13)'求和項

Sheets("列印").Select'
Cells(1,1).Select'
[J6]=a'合同編號客戶名稱將變數內容填入對應單元格的中
[J2]=b'方括弧中內容就是單元格名稱，如[J2]就是J2單元格
[K2]=c』這里僅作示範，請你根據變數的內容要填入列印表格中的什麼地方你自行修改
[E3]=d
[C5]=e
[E5]=f
[F5]=g
[H5]=h
[J5]=i
[D7]=j
[E7]=k
[F7]=l
[G7]=m
ActiveWindow.SelectedSheets.PrintOutCopies:=1,Collate:=True,IgnorePrintAreas:=False'列印指定范圍內容，列印一份
Next'處理下一行
EndSub