我有一些VBA可以获取几个不同工作表的内容，并将它们打印成PDF。我试图为每个打印的页面添加水印类型效果。但是，并非每个页面都会收到相同的水印。我有一个文本框，可以在VBA运行时正确更新，并且将始终拥有我想要的＆＃34; watermark＆＃34;成为。我已经达到了可以复制文本框并将其粘贴到特定位置的程度，但我需要能够将其粘贴到多个位置，这并不总是相同。我正在寻找每个页面以包含＆＃34;水印＆＃34;并且使其居中（并且在水印大于页面的情况下可能调整到页面的尺寸）。此外，工作表添加到PDF的页面数是可变的，但所有页面应始终接收＆＃34;水印＆＃34;。我几乎没有VBA的背景。下面的代码是通过录制宏来生成的。
Sheets("Sheet 1").Select
ActiveSheet.Shapes.Range(Array("TextBox 3")).Select
Selection.Copy
Sheets("Sheet 2").Select
Range("C16").SelectActiveSheet.Paste
我需要将粘贴位置设置为动态并居中在打印页面的中间。我还需要在每个打印页面上显示图像。
非常感谢任何帮助。
编辑：现有VBA所做的一件事是将工作表上的所有页面打印为PDF。然后它会更改页面的值，并将它们打印到PDF。我需要水印来更新值，当前正在工作。我遇到的问题是，当值发生变化时，行数会发生变化，页数也会发生变化。如果我有一个静态页面计数，我只会添加水印（已根据需要更新），应该是它应该在的任何地方。