在EXCEL中打印工作表背景的方法（VBA）

楼主 omnw	在EXCEL中打印工作表背景的方法（VBA）网络上已经有文章介绍使用技巧法打印单元格背景的方法，本文要讲述使用VBA实现，可自由选择打印背景区域的方法。 1、原理分析：首先，使用Workbook_BeforePrint事件，在打印表格以前由用户输入待打印数据区域的类型，共有四种类型可选：一是当前工作表中在“页面设置”中定义的“打印区域”；二是当前工作表中已使用的所有的区域（UsedRange）；三是由用户输入的数据区域；四是正常打印方式，不打印表格的背景。然后，根据输入的条件，如果需要打印背景，则将指定的单元格区域以图片的形式复制到剪贴板，再图片粘贴到当前工作表中。最后，调整图片的位置和大小，使其完全覆盖待打印的区域。执行打印后，删除添加的图片。 2、VBA代码。 Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim rngPrint As Range Dim shp As Shape, i As Integer, str As String On Error Resume Next i = InputBox("输入代码1、2或3打印背景，否则不打印背景：" & Chr(10) & "1：已经设定的打印区域。" & Chr(10) & "2：当前工作表中已经使用的数据区域。" & Chr(10) & "3：指定连续区域。", "请确定打印背景的区域") Select Case i Case 1 Set rngPrint = Range(ActiveSheet.PageSetup.PrintArea) If rngPrint Is Nothing Then MsgBox "未设置打印区域。" Cancel = True Exit Sub End If Case 2 Set rngPrint = ActiveSheet.UsedRange If rngPrint Is Nothing Then MsgBox "当前工作表中没有已使用的数据区域" Cancel = True Exit Sub End If Case 3 str = InputBox("请输入连续单元格区域：", "请输入连续单元格区域") Set rngPrint = Range(str) If rngPrint Is Nothing Then MsgBox "输入的数据区域错误！" Cancel = True Exit Sub End If End Select If i <= 3 Then Application.EnableEvents = False rngPrint.CopyPicture Appearance:=xlScreen, Format:=xlBitmap '将打印区域以图片的形式复制到粘贴板中 With ActiveSheet .Paste '将打印区域的图片复制到工作表中 Set shp = .Shapes(Sheet1.Shapes.Count) '添加的待打印图片 With shp '保证图片的位置和大小与打印区域一致 .LockAspectRatio = msoFalse .Left = rngPrint.Left .Top = rngPrint.Top .Width = rngPrint.Width .Height = rngPrint.Height End With .PrintOut '打印 End With shp.Delete Application.EnableEvents = True Cancel = True End If End Sub 3、操作步骤。按照正常程序执行打印命令，弹出如下菜单：输入1或2时，无需输入数据区域地址。输入3时，会提示用户继续输入数据区域的地址，此地址必须是连续的。输入4或者其他任意数据，则不打印工作表的背景，与不使用此代码的打印效果完全相同。 4、特点。一是可以实现打印工作表的背景；二是可以通过输入代码3，打印完全空白的单元格区域。 EXCEL背景打印.rar
2楼 yangkd2011	老师厉害，如果能做成宏文件，菜单栏按钮会对所有工作薄使用就更好。要输入区域时候，光标不能选择，请楼主再试试。
3楼 omnw	区域只能手工输入，不能通过选择的方式来输入。