[已解决]怎么实现自动复制读取数据并打印

透明世界1987 · 发表于 2023-2-22 13:45

实现自动打印.zip (481.83 KB, 下载次数: 6)

zjdh · 发表于 2023-2-22 16:21

本帖最后由 zjdh 于 2023-2-22 17:20 编辑

工作簿2.rar (282.45 KB, 下载次数: 5)

透明世界1987 · 发表于 2023-2-23 14:49

zjdh 发表于 2023-2-22 16:21
添加一个用户窗体，原来的宏未做修改。

感谢大神，这样倒是也可以的，就是每个编号都会挑出保存选择文件夹界面，能否修改呢？
改成全自动的，自动保存在比如桌面或者某个文件夹，名称为B2+A1 也就是编号+采购销售合同，谢谢

zjdh · 发表于 2023-2-23 17:55

本帖最后由 zjdh 于 2023-2-23 18:26 编辑

工作簿3.rar (283.15 KB, 下载次数: 10)

zjdh · 发表于 2023-2-23 17:58

本帖最后由 zjdh 于 2023-2-23 18:27 编辑

工作簿4.rar (284.12 KB, 下载次数: 6)

benhsu · 发表于 2023-2-23 19:48

zjdh 发表于 2023-2-23 17:55
打印内容输出为图片。

学习中，无意冒犯，在2016后的版本，存为图片要增加一句  .Parent.Select ，不然导出的图片会是空白
Sub SaveToPic(Path As String, File As String, Ran As Range)
Ran.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With ActiveSheet.ChartObjects.Add(0, 0, Ran.Width, Ran.Height).Chart  '
      .Parent.Select
      .Paste
      .Export Filename:=Path & File & ".jpg", FilterName:="jpg"
      .Parent.Delete
End With
End Sub

zjdh · 发表于 2023-2-23 20:38

benhsu 发表于 2023-2-23 19:48
学习中，无意冒犯，在2016后的版本，存为图片要增加一句 .Parent.Select ，不然导出的图片会是空白
Sub ...

是的这个我知道。

透明世界1987 · 发表于 2023-2-24 12:04

zjdh 发表于 2023-2-23 17:58
打印页面输出为工作簿

抱歉，大神没表达好，打印的每份单据输出为PDF文件

透明世界1987 · 发表于 2023-2-25 14:51

zjdh 发表于 2023-2-23 17:55
打印内容输出为图片。

貌似不能直接吧jpg改为pdf 导出来的文件打不开，还需要哪里修改一下呢？

zjdh · 发表于 2023-2-28 22:27

工作簿5.rar (326.14 KB, 下载次数: 4)

		自动登录	找回密码
密码			注册