Excel-VB宏打印PDF

本人写了一个带有VB宏的excel
想要将sheet1的数据对应填在sheet2的表中
​​

 然后点击“批量打印”按钮后实现-“打印”的功能
VB代码如下

 可是在运行代码之后 会打印出两张PDf，第二张PDF里的数据还是乱的，如果将sheet1里的数据增加几行也还是会出现像PDF2里一样的情况

看了好久，还是没有结果，请各位看官们帮忙指点一二。
本人初来乍到，有什么不周到的地方请多多包涵！
最后祝CSDN论坛越办越好 ！也祝各位福禄双收！阖家幸福！

不知道你这个问题是否已经解决, 如果还没有解决的话:

• 这有个类似的问题, 你可以参考下: https://ask.csdn.net/questions/7427622
• 我还给你找了一篇非常好的博客，你可以看看是否有帮助，链接：Excel 2016双击文件打开为空白的解决办法
• 除此之外, 这篇博客: 合并Excel工作簿、合并多个sheet的基本实现：中的 合并多个工作簿 部分也许能够解决你的问题, 你可以仔细阅读以下内容或者直接跳转源博客中阅读:
  

  这是一种合并的场景，另外，有时候我们还会遇到另外一种场景。
  同样是一个工作簿存在多个sheet，每个sheet的列名相同，但这样的工作簿有多个，预期是想要将存在多个sheets的多个工作簿合并到一个里面
  简单模拟一个测试的数据：
  

  

如果你已经解决了该问题, 非常希望你能够分享一下解决方案, 写成博客, 将相关链接放在评论区, 以帮助更多的人 ^-^