Office中国论坛/Access中国论坛

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

作者: dcb6381211 时间: 2016-5-24 11:04
标题: （求助）一个用vba程序运行的表格，在使用打印按钮时打印出来的是空白页，请高手帮忙
有两个附件，是采用的一个VBA程序，其中这个景阳冈酒厂A4量多版附件：[attach]59194[/attach]，通过vba设置的打印按钮“Print”按钮可以正常打印，景阳冈酒厂样品152个标 A4版附件：[attach]59195[/attach]，打印时，只打印出来几条黑线，内容无法打印，请高手帮忙看看是什么原因，是VBA编程中限定了打印区域吗？我是菜鸟，还请高手给找出具体问题，谢谢！

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

作者: dcb6381211 时间: 2016-5-24 17:25

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

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

作者: dcb6381211 时间: 2016-5-24 17:27
代码如下：
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)