亚洲视频二区_亚洲欧洲日本天天堂在线观看_日韩一区二区在线观看_中文字幕不卡一区

公告:魔扣目錄網為廣大站長提供免費收錄網站服務,提交前請做好本站友鏈:【 網站目錄:http://www.430618.com 】, 免友鏈快審服務(50元/站),

點擊這里在線咨詢客服
新站提交
  • 網站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會員:747

在Excel2003中,可以通過菜單“格式→工作表→背景”來給工作表添加一個背景,但通過這種方法添加的背景不能打印。如果需要打印工作表背景,可以用下面的幾種方法:

一、將打印區域復制為圖片

1.單擊菜單“格式→工作表→背景”,給工作表添加一個背景。

2.選擇需要打印的區域,按住Shift鍵,單擊菜單“編輯→復制圖片”。在彈出的“復制圖片”對話框中,選擇“如屏幕所示”,單擊“確定”。

3.新建一個工作表,選擇某個單元格,單擊工具欄中的“粘貼”按鈕粘貼圖片,然后打印。

二、在頁眉中添加圖片

1.單擊菜單“文件→頁面設置→頁眉/頁腳”,單擊“自定義頁眉”按鈕。

2.在“頁眉”對話框中,單擊“插入圖片”按鈕,然后在“插入圖片”對話框中選擇需要作為背景的圖片。

3.單擊“插入圖片”按鈕右側的“設置圖片格式”按鈕,彈出“設置圖片格式”對話框。在“大小”選項卡中,根據需要設置圖片為適當的大小,如在“比例”區域中調整圖片高度為“200%”。

3,單擊3次“確定”按鈕,然后進行打印預覽或打印。

三、用VBA代碼

1.單擊菜單“格式→工作表→背景”,給工作表添加一個背景。

2.按Alt+F11,打開VBA編輯器,在右側的代碼窗口中輸入下面的代碼:

Sub PrintBG()
Dim RngToPrint As Range
Dim Shp As Shape
On Error GoTo WasError
Set RngToPrint = Range(ActiveSheet.PageSetup.PrintArea)
Range("a1").Select
ActiveWindow.DisplayHeadings = False
With RngToPrint
.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With .Parent
.Paste Destination:=RngToPrint
Set Shp = .Shapes(Sheet1.Shapes.Count)
.Parent.Windows(1).SelectedSheets.PrintPreview
Shp.Delete
End With
End With
ActiveWindow.DisplayHeadings = True
Exit Sub
WasError:
MsgBox ("錯誤!" & vbCr & vbCr & " 請設置一個連續的打印區域。")
ActiveWindow.DisplayHeadings = True
End Sub

3.關閉VBA編輯器。

4.選擇一個需要打印的區域,單擊菜單“文件→打印區域→設置打印區域”。注意此處設置的打印區域必需為連續的區域。

5.單擊菜單“工具→宏→宏”,在彈出的“宏”對話框中選擇上述宏命令,如“Sheet1.PrintGB”,單擊“執行”按鈕

分享到:
標簽:區域 打印 背景 Excel2003教程
用戶無頭像

網友整理

注冊時間:

網站:5 個   小程序:0 個  文章:12 篇

  • 51998

    網站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會員

趕快注冊賬號,推廣您的網站吧!
最新入駐小程序

數獨大挑戰2018-06-03

數獨一種數學游戲,玩家需要根據9

答題星2018-06-03

您可以通過答題星輕松地創建試卷

全階人生考試2018-06-03

各種考試題,題庫,初中,高中,大學四六

運動步數有氧達人2018-06-03

記錄運動步數,積累氧氣值。還可偷

每日養生app2018-06-03

每日養生,天天健康

體育訓練成績評定2018-06-03

通用課目體育訓練成績評定