[已解决]如何修改代码把打印输出改成打印预览

sdwffw

请教老师：如何修改以下代码，实现打印预览？我改为了printpreview，测试不行
Sub DY()
    On Error GoTo 10
   Sheet1.PrintOut Copies:=选择.TextBox1.Value * 1
   
    JL
    With 选择.ListView1
        For i = 1 To .ListItems.Count
            If .ListItems(i).Checked = True Then
                Sheet1.Range("A4") = .ListItems(i)
                Sheet1.Range("E6") = .ListItems(i)
                Sheet1.Range("c15") = .ListItems(i).SubItems(2)
                 Sheet1.Range("b6") = .ListItems(i).SubItems(3)
                Sheet1.Range("b7:e7").ClearContents
               .ListItems(i).Checked = False
                'Sheet1.Range("B6") = ""
                Exit Sub
            End If
        Next
        MsgBox "打印完毕!"
        Unload 选择
    End With
    Exit Sub
10  Sheet1.PrintOut
    JL
    MsgBox "打印完毕"
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-26 08:16

装了打印机没?

第一个带参数的printout改成printpreview，后面的参数去掉。

或者你直接试着打印预览看看有没有问题。

跳转到最佳答案楼层

hwc2ycy

装了打印机没?

第一个带参数的printout改成printpreview，后面的参数去掉。

或者你直接试着打印预览看看有没有问题。

hwc2ycy

第一个不行就看第二个，第二个好歹也是修改了工作表。

hwc2ycy

1. Sub DY()
   
2.     On Error GoTo 10
   
3.     With 选择.ListView1
   
4.         For i = 1 To .ListItems.Count
   
5.             If .ListItems(i).Checked = True Then
   
6.                 Sheet1.Range("A4") = .ListItems(i)
   
7.                 Sheet1.Range("E6") = .ListItems(i)
   
8.                 Sheet1.Range("c15") = .ListItems(i).SubItems(2)
   
9.                 Sheet1.Range("b6") = .ListItems(i).SubItems(3)
   
10.                 Sheet1.Range("b7:e7").ClearContents
    
11.                 .ListItems(i).Checked = False
    
12.                 'Sheet1.Range("B6") = ""
    
13.                 Exit Sub
    
14.             End If
    
15.         Next
    
16.         MsgBox "打印完毕!"
    
17.         Unload 选择
    
18.     End With
    
19.     Sheet1.PrintPreview
    
20.     Exit Sub
    
21. 10:
    
22.     MsgBox Err.Number & vbCrLf & Err.Description
    
23. End Sub
    

复制代码

sdwffw

hwc2ycy 发表于 2013-5-26 08:16
装了打印机没?

第一个带参数的printout改成printpreview，后面的参数去掉。

"第一个带参数的printout改成printpreview，后面的参数去掉"就可以了，我原先没去掉后面参数。感谢老师。

sdwffw

http://www.excelpx.com/thread-301503-1-1.html
老师，原先您帮助解答了一个问题，有两问，第一问已解决，第二问麻烦您再看看

hwc2ycy

sdwffw 发表于 2013-5-26 08:30
http://www.excelpx.com/thread-301503-1-1.html
老师，原先您帮助解答了一个问题，有两问，第一问已解决， ...

下次你回贴时要找某层楼楼主的时候，直接点该层的回复，这样我才会收到提醒。

没有收到提醒的我回过贴后一般不会再看的，{:4012:}

sdwffw

hwc2ycy 发表于 2013-5-26 08:40
下次你回贴时要找某层楼楼主的时候，直接点该层的回复，这样我才会收到提醒。

没有收到提醒的我回过贴 ...

感谢老师指点，以后按您教的方法做。是不是我http://www.excelpx.com/thread-301503-1-1.html中的第二问不太好实现？