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

h16503

非常感谢“hwc2ycy ” 的指点。
谢谢你再帮我改一下，最好达到附件中的效果。

hwc2ycy

你要加的是页脚不？

1. Application.PrintCommunication = False
   
2. with activesheet.pagesetup
   
3. .FitToPagesWide = 1
   
4. .FitToPagesTall = 1
   
5. .RightFooter = "打印日期：&D"
   
6. .CenterHorizontally=true
   
7. end with
   
8. Application.PrintCommunication = true

复制代码

你用代码的时候有没有感觉很卡，或者刷屏厉害？

h16503

你好
谢谢了，你的代码我试过了，打印出来的效果不好，谢谢你再帮我改一下。