macro to print xps then save with name value in (B2)
Hi Garry
here is the code
Sub copypastetoXPS()
'
' copypastetoXPS Macro
' Macro recorded 15/05/2014 by Ditchy
'
'
ActiveWindow.SmallScroll Down:=-12
Application.ActivePrinter = "Microsoft XPS Document Writer on Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Microsoft XPS Document Writer on Ne01:", Collate:=True
End Sub
how do I get it to save automatically here
"C:\Ballarat Harriers Data"
with a file name and date stamp?
regards
Ditchy
On Friday, May 9, 2014 6:27:31 PM UTC+10, wrote:
Hello,
I have a macro which will print (A1:F20) with XPS, is there a way to save with a filename automatically, with the filename taken from (B2). It will be the same path just a different name each time.
all help much appreciated
regards
Ditchy
Ballarat
Australia
|