为什么，不打印时能通过，打印表格后就卡机？？

正弋老兵

当跳过打印时，这个VBA 能顺利通过，一但选用打印时，就卡机了。请高手给予诊断一下，到底为什么？
   表Sub 记入()
   Dim j As Integer
   Dim k As Integer
   Dim l As Long
       j = Sheets("记帐").Range("K" & Rows.Count).End(xlUp).Row
       l = Sheets("流水").Range("I" & Rows.Count).End(xlUp).Row + 1
       XH = Sheets("记帐").Range("E2")
       XH = XH + 1
       If j <= 9 Then GoTo 100
       X = MsgBox("   请打印", vbOKCancel, "打印机准备好了没有?")
       If X = 1 Then
       打印
     Else
      
     End If
           k = 10                     把K的赋值放到下面来就通过了
              Sheets("流水").Select
          Do While k <= j
              Sheets("流水").Cells(l, 1) = Sheets("记帐").Cells(k, 3)    '日期
              Sheets("流水").Cells(l, 2) = XH                            '序号
              Sheets("流水").Cells(l, 3) = Sheets("记帐").Cells(k, 5)    '状态
              Sheets("流水").Cells(l, 4) = Sheets("记帐").Cells(7, 8)    '入库人
              Sheets("流水").Cells(l, 5) = Sheets("记帐").Cells(k, 6)    '单位名称
              Sheets("流水").Cells(l, 6) = Sheets("记帐").Cells(k, 8)    '产品名称
              Sheets("流水").Cells(l, 7) = Sheets("记帐").Cells(k, 9)    '纸瓦编码
              Sheets("流水").Cells(l, 8) = Sheets("记帐").Cells(k, 10)   '尺寸
              Sheets("流水").Cells(l, 9) = Sheets("记帐").Cells(k, 11)   '数量
              k = k + 1
              l = l + 1
           Loop
      Sheets("记帐").Range("G10:G16,K10:K16").ClearContents
      
100
End Sub                       谢谢你们    通过了

[ 本帖最后由 正弋老兵 于 2011-1-3 15:07 编辑 ]

abdias520

sheets("记账").select
应该是上面这句有问题，注释掉试下

不可以选择一张表，但却要求打印的是另一张表

正弋老兵

好的，我试一下。。。。。。。。。。。。
  不过我要打印的是“记帐表”啊

正弋老兵

我打印的是记帐表。并把记帐表的内容赋予流水表

正弋老兵

按你说的做了，还是出同样问题

yaojil

测试成功了
Sub 打印()
    Sheets("记帐").Select   
    Range("D4:K18").Select
    ActiveSheet.PageSetup.PrintArea = "$D$4:$K$18"
    Selection.PrintOut Copies:=1
    Range("E6").Select
End Sub

[ 本帖最后由 yaojil 于 2011-1-3 14:35 编辑 ]

正弋老兵

谢你了，还是通不过

yaojil

你把我的附件 下来，试一试-我先点的 记入 ，按 确定 打印 ，没有问题的呀

abdias520

因为找不到单元格CELLS(K,3)
怎么可以让K=0
错误就在这吧

abdias520

我也是，直接打印没有问题，一切OK，浪费公司一张纸了。
接上面的，应先给K赋一初始值，比如7