在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”,單擊“執行”按鈕