[X]My Assistant

[Gerrit]

I have upgraded to use the inbuild PDF printing function and use the following code to print out a PDF. There is a check button of the form from which the PDF is printed.

Private Sub cmdPrintStatement_Click()
If CheckPDF.Value = True Then
DoCmd.OpenReport "rpt229PDF", acViewPreview, , , acHidden
DoCmd.OutputTo acOutputReport, "rpt229PDF", acFormatPDF, "" & Company & ".pdf"
DoCmd.Close acReport, "rpt229PDF", acSaveNo
End If
If CheckPDF.Value = False Then
DoCmd.OpenReport "rpt229"
End If
End Sub

All works fine but whichever way I try, I cannot get a month and year to appear after the customers name. (there is a date field on the form,though it may be referable to use some form of Date() function. I always seem to have to many or not enough "" marks.

Any clues?

I dont need a file path as the software is on three different computers and have simple told the database to upload files to a new default folder at C:\V-Tech\PDF Documents

[June7]

Simply concatenate.

DoCmd.OutputTo acOutputReport, "rpt229PDF", acFormatPDF, Me.Company & "_" & Format(Date(), "yyyymm") & ".pdf"

This post has been edited by June7: Nov 27 2019, 06:43 PM

[Gerrit]

Cheers works perfectly though I just changed yyyymm to mmyy. Next question, how to I get for the 11th month to print out Nov?

[tina t]

well, generically,

Format(Date(), "mmmyy")

should do it. but if you only want the "short name" to be used when it's Nov, that takes a bit more work.

hth
tina

[FrankRuperto]

Just the 11th month?.. Well, all months would display three-letter abbrevs with: Format(Date(), "MMMyyyy") if you want the first letter of the abbrev in uppercase.
This post has been edited by FrankRuperto: Nov 27 2019, 07:09 PM

[Gerrit]

Absolutely brilliant. Changed to Date function to MMMyy and it works. I now get customername-NOV19.pdf as the file name.

Thank you all.