[已解决]如何设置图片打印

h16503

谢谢高手打点，为何不能用按键打印图表。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-14 08:35

BottomRightCell 返回一个 Range 对象，它代表对象右下角的单元格。只读。
TopLeftCell 返回一个 Range 对象，它代表指定对象左上角的单元格。只读。
PrintObject 如果打印文档时也打印指定对象，则为 True。Boolean 类型，可读写。

你想单独打印图表，就得利用这三个属性来操作。

跳转到最佳答案楼层

h16503

请高手指点一下啊。

爱疯

发一个截图看看吧，才好知道具体的错误提示是什么，再找原因。

h16503

爱疯 发表于 2013-3-1 21:58
发一个截图看看吧，才好知道具体的错误提示是什么，再找原因。

爱疯
我要的是一个图片打印在一张A4上，现在打印的是整个页面，不是一个一个图片打印的。

爱疯

我没打印机，我的电脑默认打印机是 Microsoft XPS Document Writer
运行后，得到是N个.xps文件（运行时，每个图文件保存时都要确定1次）
不知接了打印机后，将怎样。

h16503

要象上面的那样一个一个图片打印在A4纸上。

h16503

谢谢高手指点一下啊

hwc2ycy

BottomRightCell 返回一个 Range 对象，它代表对象右下角的单元格。只读。
TopLeftCell 返回一个 Range 对象，它代表指定对象左上角的单元格。只读。
PrintObject 如果打印文档时也打印指定对象，则为 True。Boolean 类型，可读写。

你想单独打印图表，就得利用这三个属性来操作。

hwc2ycy

1. Sub 全部()
   
2. 'Application.EnableEvents = False
   
3. 'Application.ScreenUpdating = False
   
4. 
   
5.     份数 = Cells(1, 7)
   
6.     For i = 1 To 9
   
7.         With ActiveSheet.ChartObjects("图表 " & i)
   
8.             Range(.TopLeftCell, .BottomRightCell).PrintOut copies:=1
   
9. 
   
10.             'ActiveWindow.SelectedSheets.PrintOut Copies:=份数
    
11.             'ActiveWindow.SelectedSheets.PrintOut copies:=1
    
12.         End With
    
13.     Next i
    
14.     Application.EnableEvents = True
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    
17. 
    
18. 
    
19. 
    
20. Sub 图()
    
21. 'Application.EnableEvents = False
    
22. 'Application.ScreenUpdating = False
    
23.     份数 = Cells(1, 7)
    
24.     开始 = Cells(2, 6)
    
25.     结束 = Cells(2, 8)
    
26.     If 开始 = 0 Then GoTo 5
    
27.     If 结束 = 0 Then 结束 = 9
    
28.     For i = 开始 To 结束
    
29.         'ActiveSheet.ChartObjects("图表 " & i).Activate
    
30.         With ActiveSheet.ChartObjects("图表 " & i)
    
31.             Range(.TopLeftCell, .BottomRightCell).PrintOut copies:=1
    
32.         End With
    
33.     Next i
    
34. 5:
    
35.     Cells(1, 7) = 1
    
36.     Cells(2, 6) = ""
    
37.     Cells(2, 8) = ""
    
38.     Application.EnableEvents = True
    
39.     Application.ScreenUpdating = True
    
40. End Sub

复制代码

你试试。

hwc2ycy

1.     With ActiveSheet.PageSetup
   
2.         .CenterHorizontally = True
   
3.     End With

复制代码

分平居中