（求助）一个用vba程序运行的表格，在使用打印按钮时打印出来的是空白页，请高手帮忙

dcb6381211

有两个附件，是采用的一个VBA程序，其中这个景阳冈酒厂A4量多版附件：，通过vba设置的打印按钮“Print”按钮可以正常打印，景阳冈酒厂样品152个标 A4版附件：，打印时，只打印出来几条黑线，内容无法打印，请高手帮忙看看是什么原因，是VBA编程中限定了打印区域吗？我是菜鸟，还请高手给找出具体问题，谢谢！

pureshadow

目测工作簿里有个Chart1，里面只有几条线，猜测是代码打印到Chart1去了。
另外，我并没有在你的表里找到对数据进行整合的代码，只是单纯的打印，若是这样的话，Excel自带的打印功能足够用了。

dcb6381211

pureshadow 发表于 2016-5-24 11:13
目测工作簿里有个Chart1，里面只有几条线，猜测是代码打印到Chart1去了。
另外，我并没有在你的表里找到对 ...

工作表sheet1中是随机数和数学公式，要求是每一张上的数字都不相同，代码在模块1中，功能是每打印一页自动刷新一次页面，再打印下一张，在第一个附件中可以正常打印，第二个附件是复制的第一个附件，把原来的数据通过删除列、行后又插入列、行重新做的里面的数字和表格内容，结果第二个附件打印出来就是空白内容了，请指点

dcb6381211

代码如下：
Option Explicit

Public COUNTER As Long


Sub Macro1()
'
' Macro1 Macro
' 宏由 laola1000 录制，时间: 2009-7-19
'

'
    Range("A1:K34").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Sheet2").Select
    Application.CutCopyMode = False
    Sheets("Sheet2").Copy
    ActiveWorkbook.saveAs Filename:= _
        ThisWorkbook.Path & "\附件\附件(" & [D2] & "-" & [K53] & "页).xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Range("A1").Select
    ActiveWindow.Close
    Sheets("Sheet1").Select
    Range("A1").Select
End Sub

Public Function PrintTime(delay As Single)
Dim Start As Single
Start = Timer
  Do While Timer < Start + delay
  DoEvents
  Loop
End Function