[已解决]新手菜鸟求打印代码修改

LKKKING

1. 
   
2. Sub 打印()
   
3. 
   
4. If Sheets("Sheet2").[D15] = "" Then MsgBox "D15,不为空!": Exit Sub
   
5. 
   
6. Dim c As Range
   
7. 
   
8.     With Sheet1
   
9. 
   
10.     Set c = .UsedRange.Find(Sheet1.[D15], , , 1)
    
11. 
    
12.     If Not c Is Nothing Then
    
13. 
    
14.         .PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(c.Row + 53, c.Column + 8)).Address
    
15. 
    
16.         .PrintOut
    
17. 
    
18.     End If
    
19. 
    
20.     End With
    
21. 
    
22. 
    
23.     End Sub

复制代码

我在Sheet2表设一个按钮打印
单元格D15不为空时打印
为空时不能打印
以上功能可实现
可是打印出来的不是我要的
我要的是Sheet2表的数据
不是Sheet1表的数据
对了 我的表 名称要是中文字 那要如何改
菜鸟不懂  打印 也是抓来的
请老师帮修改
谢谢

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-25 07:27

1. Sub 打印()
   
2. 
   
3. If Sheets("Sheet2").[D15] = "" Then MsgBox "D15,不为空!": Exit Sub
   
4. 
   
5. Dim c As Range
   
6. 
   
7.     With Sheets("Sheet2")
   
8. 
   
9.         Set c = .UsedRange.Find(.[D15], , , 1)
   
10.    
    
11.         If Not c Is Nothing Then
    
12.    
    
13.             .PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(c.Row + 53, c.Column + 8)).Address
    
14.    
    
15.             .PrintOut
    
16.    
    
17.         End If
    
18. 
    
19.     End With
    
20. 
    
21. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

With Sheet1改为with Sheet2吧。

hwc2ycy

1. Sub 打印()
   
2. 
   
3. If Sheets("Sheet2").[D15] = "" Then MsgBox "D15,不为空!": Exit Sub
   
4. 
   
5. Dim c As Range
   
6. 
   
7.     With Sheets("Sheet2")
   
8. 
   
9.         Set c = .UsedRange.Find(.[D15], , , 1)
   
10.    
    
11.         If Not c Is Nothing Then
    
12.    
    
13.             .PageSetup.PrintArea = .Range(.Cells(1, 1), .Cells(c.Row + 53, c.Column + 8)).Address
    
14.    
    
15.             .PrintOut
    
16.    
    
17.         End If
    
18. 
    
19.     End With
    
20. 
    
21. End Sub

复制代码

LKKKING

hwc2ycy 发表于 2012-10-25 07:27

谢谢你~是我想要的