Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Creating PDF's through VBA
I have 3 worksheets, each with watermarked names already where I want them to
appear. In a 4th worksheet, I have the names listed of the people I want to be watermarked in each sheet. I have my print macro working fine which is shown below. How would I be able to alter this to be able to print my worksheets with the watermarked names to PDF??? Thanks in advance. Sub Print_xxx_to_printer() Dim iStart As Integer Dim person As String iStart = 8 person = Worksheets("Watermark").Range("F" & iStart).Value Do While person < "" Worksheets("Watermark").Range("B4") = person Worksheets("Data 1 Sheet").Select ActiveSheet.Shapes("WordArt 17876").Select Selection.ShapeRange.TextEffect.Text = person ActiveSheet.Shapes("WordArt 17877").Select Selection.ShapeRange.TextEffect.Text = person ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Worksheets("Data2 Sheet").Activate ActiveSheet.Shapes("WordArt 26").Select Selection.ShapeRange.TextEffect.Text = person ActiveSheet.Shapes("WordArt 27").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Worksheets("Data3 Sheet").Activate ActiveSheet.Shapes("WordArt 25").Select Selection.ShapeRange.TextEffect.Text = person ActiveSheet.Shapes("WordArt 26").Select Selection.ShapeRange.TextEffect.Text = person ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True iStart = iStart + 1 person = Worksheets("Watermark").Range("F" & iStart).Value Loop |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I hyperlink multiple pdf's into my excel spreadsheet | Excel Discussion (Misc queries) | |||
Creating Id | Excel Worksheet Functions | |||
Macro to create PDF's question | Excel Discussion (Misc queries) | |||
Really need help creating pop ups | Excel Discussion (Misc queries) | |||
Creating PDF's in Excel | Excel Discussion (Misc queries) |