在Excel2003中，可以通過菜單“格式→工作表→背景”來給工作表添加一個(gè)背景，但通過這種方法添加的背景不能打印。如果需要打印工作表背景，可以用下面的幾種方法：
一、將打印區(qū)域復(fù)制為圖片
1.單擊菜單“格式→工作表→背景”，給工作表添加一個(gè)背景。
2.選擇需要打印的區(qū)域，按住Shift鍵，單擊菜單“編輯→復(fù)制圖片”。在彈出的“復(fù)制圖片”對(duì)話框中，選擇“如屏幕所示”，單擊“確定”。
3.新建一個(gè)工作表，選擇某個(gè)單元格，單擊工具欄中的“粘貼”按鈕粘貼圖片，然后打印。
二、在頁眉中添加圖片
1.單擊菜單“文件→頁面設(shè)置→頁眉/頁腳”，單擊“自定義頁眉”按鈕。
2.在“頁眉”對(duì)話框中，單擊“插入圖片”按鈕，然后在“插入圖片”對(duì)話框中選擇需要作為背景的圖片。
3.單擊“插入圖片”按鈕右側(cè)的“設(shè)置圖片格式”按鈕，彈出“設(shè)置圖片格式”對(duì)話框。在“大小”選項(xiàng)卡中，根據(jù)需要設(shè)置圖片為適當(dāng)?shù)拇笮。缭?ldquo;比例”區(qū)域中調(diào)整圖片高度為“200%”。
3，單擊3次“確定”按鈕，然后進(jìn)行打印預(yù)覽或打印。
三、用VBA代碼
1.單擊菜單“格式→工作表→背景”，給工作表添加一個(gè)背景。
2.按Alt+F11，打開VBA編輯器，在右側(cè)的代碼窗口中輸入下面的代碼：
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 ("錯(cuò)誤！" & vbCr & vbCr & " 請(qǐng)?jiān)O(shè)置一個(gè)連續(xù)的打印區(qū)域。")
ActiveWindow.DisplayHeadings = True
End Sub
3.關(guān)閉VBA編輯器。
4.選擇一個(gè)需要打印的區(qū)域，單擊菜單“文件→打印區(qū)域→設(shè)置打印區(qū)域”。注意此處設(shè)置的打印區(qū)域必需為連續(xù)的區(qū)域。
5.單擊菜單“工具→宏→宏”，在彈出的“宏”對(duì)話框中選擇上述宏命令，如“Sheet1.PrintGB”，單擊“執(zhí)行”按鈕
