save as pdf with date (1 Viewer)

bigmac · Jul 27, 2014

hi all can you help please?
I am trying to save a report via a button and a macro, this I have achieved.
but how do I get it to also save the time and date in the name of the pdf instead of just the name of the report?
example, report name "test" pdf needs to be called "test [todays date,time]"

bob fitz · Jul 27, 2014

Can you show us your code

bigmac · Jul 27, 2014

sorry I do not understand what you mean ,
I save the report through a basic macro
object type "report"
object name "test"
outputformat "pdf format(*.pdf)"

this saves the report as a pdf called test but I need it to add the date and time to the name.
any ideas please?

bob fitz · Jul 27, 2014

Sorry, I should have read your OP more carefully. I don't use macros, so I will be unable to help you with this.

bigmac · Jul 27, 2014

can you show me how to do this in vba?

bob fitz · Jul 27, 2014

bigmac said:
can you show me how to do this in vba?

Not sure. I have to go out for a bit now, but will take a look at it later if no one has been able to help.

vbaInet · Jul 27, 2014

In the absence of bob fitz

... you need to do this in VBA. So look into these three functions:

OutputTo(), Format() and Now().

bigmac · Jul 27, 2014

vbainet , thank you for your response but this is all above my head,
all I want is to be able to save a report as a pdf using the report name and adding the date to the name,
if this has to be done in vba then can you show me in an example how this is done ,iy will be better for me to follow and understand it.

Mike375 · Jul 28, 2014

I just copied this from my own stuff but it is for Word

Forms!PrintAndClose!LetterName = ("" + Format(Now, "YYYY-MM-DD") + " " & Format(Now, "hh-mm-ss") + " " & ([Forms]![PrintAndClose]![CLSurname]) + " " & ([Forms]![PrintAndClose]![Text469]) + " " & "Not Printed" + ".doc")

That produces a Word doc file with a name like

2014-04-14 11-08-38 Albert AIG Not Printed

This is basically the VBA version of the Set Value in a macro. In other words the value of the field LetterName will be "set" to what is on the right hand side of the = sign.

However, the limit of the macro is you can't do what is on the right hand side of the equal sign. Although it might be possible in the later versions of Access such as 2013 and probably 2007.

vbaInet · Jul 28, 2014

I did say to research these methods so some quick "Googling" would have returned plenty of examples. Skeleton code:

Code:

Dim strDocName As String

strDocName = "[COLOR="Blue"]\Path\to\file\here\[/COLOR]" & Format(Now(), "yyyymmdd_hhnn")

DoCmd.OutputTo "NameOfReport",

Research the OutputTo method to determine where to put strDocName and amend the bits in blue.

This code will go into the Click event of a button.

icbiny · Sep 16, 2014

put this code on a button...
DoCmd.OutputTo acOutputReport, "Reuse_Invoice", acFormatPDF, "e:\" & Me.Combo0.Column(1) & Me.Text2 & ".pdf"

Reuse_Invoice is the name of the report. after acFormatPDF, is the part u are asking about. here it simply builds a string e: is the location, combo0 is a combo box where the month is selected and text2 is a textbox with the year entered and finally .pdf is the file extension. The whole thing looks like "e:\September2014.pdf
you could easily have "c:\my folder\filename\" & date() & ".pdf"

save as pdf with date (1 Viewer)

bigmac

Registered User.

bob fitz

AWF VIP

bigmac

Registered User.

bob fitz

AWF VIP

bigmac

Registered User.

bob fitz

AWF VIP

vbaInet

AWF VIP

bigmac

Registered User.

Mike375

Registered User.

vbaInet

AWF VIP

icbiny

Registered User.

Similar threads

Users who are viewing this thread