註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excelㄧ般區
» 打印問題
返回列表
下一主題
上一主題
發帖
[發問]
打印問題
jomeow
發短消息
加為好友
jomeow
當前離線
UID
10736
帖子
77
主題
11
精華
0
積分
96
金錢
96
點名
0
作業系統
windows xp
軟體版本
OFFICE 2010
閱讀權限
20
性別
女
在線時間
32 小時
註冊時間
2012-8-29
最後登錄
2023-10-30
中學生
帖子
77
主題
11
精華
0
積分
96
點名
0
作業系統
windows xp
軟體版本
OFFICE 2010
閱讀權限
20
性別
女
註冊時間
2012-8-29
最後登錄
2023-10-30
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 2018-2-6 16:09
|
只看該作者
[發問]
打印問題
請問一下.. 我已設好了一個工作表1的打印設定..
請問我可不可以把工作表1的打印設定.. 復製到工作表2呢
先謝謝各位大大幫忙!!
樓主熱帖
文字轉數字(試過很多方法都是失敗)
不同級別加總問題
compatibility mode
積分問題..
有關fieldinfo 使用引數 一問
有關找尋每天會員編號問題
排序問題
移除重覆
xlup 問題..
有關EXCEL 2010 的RECENT FILE
收藏
分享
ikboy
發短消息
加為好友
ikboy
當前離線
UID
21753
帖子
262
主題
8
精華
0
積分
280
金錢
280
點名
17
作業系統
xp
軟體版本
Office 2007
閱讀權限
20
性別
男
來自
HK
在線時間
576 小時
註冊時間
2015-8-11
最後登錄
2024-11-19
中學生
帖子
262
主題
8
精華
0
積分
280
點名
17
作業系統
xp
軟體版本
Office 2007
閱讀權限
20
性別
男
來自
HK
註冊時間
2015-8-11
最後登錄
2024-11-19
4
#
發表於 2018-2-8 14:31
|
只看該作者
try this:
Sub zz()
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.AlignMarginsHeaderFooter = ThisWorkbook.Sheets(1).PageSetup.AlignMarginsHeaderFooter
.BlackAndWhite = ThisWorkbook.Sheets(1).PageSetup.BlackAndWhite
.BottomMargin = ThisWorkbook.Sheets(1).PageSetup.BottomMargin
.CenterFooter = ThisWorkbook.Sheets(1).PageSetup.CenterFooter
.CenterHeader = ThisWorkbook.Sheets(1).PageSetup.CenterHeader
.CenterHorizontally = ThisWorkbook.Sheets(1).PageSetup.CenterHorizontally
.CenterVertically = ThisWorkbook.Sheets(1).PageSetup.CenterVertically
.DifferentFirstPageHeaderFooter = ThisWorkbook.Sheets(1).PageSetup.DifferentFirstPageHeaderFooter
.Draft = ThisWorkbook.Sheets(1).PageSetup.Draft
.EvenPage.CenterFooter.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.CenterFooter.Text
.EvenPage.CenterHeader.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.CenterHeader.Text
.EvenPage.LeftFooter.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.LeftFooter.Text
.EvenPage.LeftHeader.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.LeftHeader.Text
.EvenPage.RightFooter.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.RightFooter.Text
.EvenPage.RightHeader.Text = ThisWorkbook.Sheets(1).PageSetup.EvenPage.RightHeader.Text
.FirstPage.CenterFooter.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.CenterFooter.Text
.FirstPage.CenterHeader.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.CenterHeader.Text
.FirstPage.LeftFooter.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.LeftFooter.Text
.FirstPage.LeftHeader.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.LeftHeader.Text
.FirstPage.RightFooter.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.RightFooter.Text
.FirstPage.RightHeader.Text = ThisWorkbook.Sheets(1).PageSetup.FirstPage.RightHeader.Text
.FirstPageNumber = ThisWorkbook.Sheets(1).PageSetup.FirstPageNumber
.FitToPagesTall = ThisWorkbook.Sheets(1).PageSetup.FitToPagesTall
.FitToPagesWide = ThisWorkbook.Sheets(1).PageSetup.FitToPagesWide
.FooterMargin = ThisWorkbook.Sheets(1).PageSetup.FooterMargin
.HeaderMargin = ThisWorkbook.Sheets(1).PageSetup.HeaderMargin
.LeftFooter = ThisWorkbook.Sheets(1).PageSetup.LeftFooter
.LeftHeader = ThisWorkbook.Sheets(1).PageSetup.LeftHeader
.LeftMargin = ThisWorkbook.Sheets(1).PageSetup.LeftMargin
.OddAndEvenPagesHeaderFooter = ThisWorkbook.Sheets(1).PageSetup.OddAndEvenPagesHeaderFooter
.Order = ThisWorkbook.Sheets(1).PageSetup.Order
.Orientation = ThisWorkbook.Sheets(1).PageSetup.Orientation
.PrintArea = ThisWorkbook.Sheets(1).PageSetup.PrintArea
.PaperSize = ThisWorkbook.Sheets(1).PageSetup.PaperSize
.PrintComments = ThisWorkbook.Sheets(1).PageSetup.PrintComments
.PrintErrors = ThisWorkbook.Sheets(1).PageSetup.PrintErrors
.PrintGridlines = ThisWorkbook.Sheets(1).PageSetup.PrintGridlines
.PrintHeadings = ThisWorkbook.Sheets(1).PageSetup.PrintHeadings
.PrintTitleColumns = ThisWorkbook.Sheets(1).PageSetup.PrintTitleColumns
.PrintTitleRows = ThisWorkbook.Sheets(1).PageSetup.PrintTitleRows
.RightFooter = ThisWorkbook.Sheets(1).PageSetup.RightFooter
.RightHeader = ThisWorkbook.Sheets(1).PageSetup.RightHeader
.RightMargin = ThisWorkbook.Sheets(1).PageSetup.RightMargin
.ScaleWithDocHeaderFooter = ThisWorkbook.Sheets(1).PageSetup.ScaleWithDocHeaderFooter
.TopMargin = ThisWorkbook.Sheets(1).PageSetup.TopMargin
If ThisWorkbook.Sheets(1).PageSetup.Zoom Then .Zoom = ThisWorkbook.Sheets(1).PageSetup.Zoom
End With
Application.PrintCommunication = True
End Sub
複製代碼
TOP
jomeow
發短消息
加為好友
jomeow
當前離線
UID
10736
帖子
77
主題
11
精華
0
積分
96
金錢
96
點名
0
作業系統
windows xp
軟體版本
OFFICE 2010
閱讀權限
20
性別
女
在線時間
32 小時
註冊時間
2012-8-29
最後登錄
2023-10-30
中學生
帖子
77
主題
11
精華
0
積分
96
點名
0
作業系統
windows xp
軟體版本
OFFICE 2010
閱讀權限
20
性別
女
註冊時間
2012-8-29
最後登錄
2023-10-30
3
#
發表於 2018-2-7 16:22
|
只看該作者
回復
2#
ikboy
謝謝你呀... 我成功了.. 可以復制到第二張工作表..
問多一條題.. 如果是想由 file A的工作表打印格式, 復製到FILE B的工作表..
可以嗎?
因為每月都會由供應商給我一次.. 內容大致一樣,
我要每次都要重新設定打印設定..
謝謝各位大大再次幫忙!!
TOP
ikboy
發短消息
加為好友
ikboy
當前離線
UID
21753
帖子
262
主題
8
精華
0
積分
280
金錢
280
點名
17
作業系統
xp
軟體版本
Office 2007
閱讀權限
20
性別
男
來自
HK
在線時間
576 小時
註冊時間
2015-8-11
最後登錄
2024-11-19
中學生
帖子
262
主題
8
精華
0
積分
280
點名
17
作業系統
xp
軟體版本
Office 2007
閱讀權限
20
性別
男
來自
HK
註冊時間
2015-8-11
最後登錄
2024-11-19
2
#
發表於 2018-2-7 14:27
|
只看該作者
先點選已設好的工作表1, 表住Ctrl點選其他工作表(可以多個工作表), 輸入指令:
Alt+P,sp,Enter, 完成.
TOP
靜思自在 :
【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 • 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲
發表於 2018-2-7 14:27
