打印Excel工作表背景的幾種辦法

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

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

??? 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”，單擊“執行”按鈕。