View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
[email protected] stephen.ditchfield@gmail.com is offline
external usenet poster
 
Posts: 24
Default 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