Report Print Preview name (1 Viewer)

[Seph]

Good day everyone,

Please can you assist me.

I have the following code which opens my reports InvoiceJobR/InvoiceSalesR in Print Preview, depending on the IIF criteria.

Private Sub InvoiceNumber_Click()

    DoCmd.OpenReport IIf(SalesInvoice, "InvoiceSalesR", "InvoiceJobR"), acViewPreview, , "InvoiceID=" & InvoiceID
     
End Sub

The code however, opens the report with the name of the report.

I'd like for it to open with the name of the InvoiceNumber field on the report so that when I print the report to PDF it reflects the invoice number.

Thank you in advance!

 

[Gasman]

You just save the pdf with whatever name you like.
Otherwise copy the report as the new name and open tha and print it, then delete that report.

 

[pbaldy]

Another method is to open it in preview mode as you are (can be hidden), use OutputTo to save it with the desired name and path, then close the report.

 

[Seph]

You just save the pdf with whatever name you like.
Otherwise copy the report as the new name and open tha and print it, then delete that report.

I've been doing that. But it can be time consuming. Especially if there are alot of Invoices.

 

[Gasman]

I've been doing that. But it can be time consuming. Especially if there are alot of Invoices.

No,
You do it all via code.

 

[Seph]

No,
You do it all via code.

That would be great. I've scoured the Forum and there are other post's pertaining to this situation. But each one was slightly different case than mine

https://www.access-programmers.co.uk/forums/threads/name-and-print-report-to-pdf.321908/
https://www.access-programmers.co.u...ort-to-pdf-with-filename-and-filepath.325322/
https://www.access-programmers.co.uk/forums/threads/print-report-as-pdf-file.326203/

 

[Gasman]

Well you are unlikely to get a tailor made block of code for your particular situation?
I tended to find something as close as possible or at least with the basics and amend to suit.

If you are not bothered about seeing the name in Preview, then this code can be amended to suit.
You have to do some of the work yourself, else you will never learn anything.

The code below created a report for a specific ship.
You can see I had to copy the report object as the ship name when on 2003, and then delete it.. When I obtained 2007, I could use the pdf option.

Private Sub cmdShip_Click()
On Error GoTo Err_cmdShip_Click

    Dim stRptName As String, stParam As String, stLinkCriteria As String, stDBpath As String, stFTPpath As String
    Dim iPreview As Integer, iDialog As Integer, blnPrintIt As Boolean
    
    stDBpath = CurrentProject.Path & "\"
    stFTPpath = stDBpath & "Gazette\"
    iPreview = acViewPreview
    If Me.ChkPreview Then
       ' iPreview = 2
        iDialog = acWindowNormal
    Else
        iDialog = acHidden
    End If
    
    stRptName = "Main_by_Ship"
    
    stParam = Replace(LCase(Me.cboShip.Value), " ", "_")
    stLinkCriteria = "[Ship] = '" & Me.cboShip.Value & "'"
    
    'DoCmd.CopyObject , stParam, acReport, stRptName
        
    If Me.ChkPreview Then
        DoCmd.OpenReport stRptName, iPreview, , stLinkCriteria, iDialog
    Else
        DoCmd.OpenReport stRptName, iPreview, , stLinkCriteria, iDialog
        DoCmd.OutputTo acOutputReport, stRptName, acFormatPDF, stFTPpath & stParam & ".pdf", False
        DoCmd.Close acReport, stRptName
    End If
    'DoCmd.DeleteObject acReport, stParam

Exit_cmdShip_Click:
    Exit Sub

Err_cmdShip_Click:
    MsgBox Err.Description
    Resume Exit_cmdShip_Click
    
End Sub

 

[Seph]

Well you are unlikely to get a tailor made block of code for your particular situation?
I tended to find something as close as possible or at least with the basics and amend to suit.

If you are not bothered about seeing the name in Preview, then this code can be amended to suit.
You have to do some of the work yourself, else you will never learn anything.

The code below created a report for a specific ship.
You can see I had to copy the report object as the ship name when on 2003, and then delete it.. When I obtained 2007, I could use the pdf option.

Private Sub cmdShip_Click()
On Error GoTo Err_cmdShip_Click

    Dim stRptName As String, stParam As String, stLinkCriteria As String, stDBpath As String, stFTPpath As String
    Dim iPreview As Integer, iDialog As Integer, blnPrintIt As Boolean
   
    stDBpath = CurrentProject.Path & "\"
    stFTPpath = stDBpath & "Gazette\"
    iPreview = acViewPreview
    If Me.ChkPreview Then
       ' iPreview = 2
        iDialog = acWindowNormal
    Else
        iDialog = acHidden
    End If
   
    stRptName = "Main_by_Ship"
   
    stParam = Replace(LCase(Me.cboShip.Value), " ", "_")
    stLinkCriteria = "[Ship] = '" & Me.cboShip.Value & "'"
   
    'DoCmd.CopyObject , stParam, acReport, stRptName
       
    If Me.ChkPreview Then
        DoCmd.OpenReport stRptName, iPreview, , stLinkCriteria, iDialog
    Else
        DoCmd.OpenReport stRptName, iPreview, , stLinkCriteria, iDialog
        DoCmd.OutputTo acOutputReport, stRptName, acFormatPDF, stFTPpath & stParam & ".pdf", False
        DoCmd.Close acReport, stRptName
    End If
    'DoCmd.DeleteObject acReport, stParam

Exit_cmdShip_Click:
    Exit Sub

Err_cmdShip_Click:
    MsgBox Err.Description
    Resume Exit_cmdShip_Click
   
End Sub

Yeah I'm with you there.

The thing is though, the VBA aspect isn't where I shine.

I do appreciate the code and will do my best to cater it to my situation.

 

[arnelgp]

I'd like for it to open with the name of the InvoiceNumber field on the report so that when I print the report to PDF it reflects the invoice number.

add Code (VBA) on the Load Event of your Report:
bring your report in Design view.
and on the Load Event of the Report, choose Code Builder.
copy and paste the code:

Private Sub Report_Load()
Me.Caption = Me!InvoiceNumber
End Sub

 

[Seph]

add Code (VBA) on the Load Event of your Report:
bring your report in Design view.
and on the Load Event of the Report, choose Code Builder.
copy and paste the code:

Private Sub Report_Load()
Me.Caption = Me!InvoiceNumber
End Sub

You're amazing as always. Simple solutions are always easier to replicate and trouble shoot.

I appreciate everyone's input.

 

[Seph]

add Code (VBA) on the Load Event of your Report:
bring your report in Design view.
and on the Load Event of the Report, choose Code Builder.
copy and paste the code:

Private Sub Report_Load()
Me.Caption = Me!InvoiceNumber
End Sub

Ok, last question and then I won't ask another stupid question for a month

Your code works perfectly. (Thank you)

I change the text field's format to get the desired result:

Is it possible to wrap the code in a format like it is in the Report Properties section so that the print preview shows the I000 as well?

I tried the below Code:

Private Sub Report_Load()

    Me.Caption = Me!InvoiceNumber.Format = "\I000000"
   
End Sub

But I get either True or False errors

 

[arnelgp]

try:

Me.Caption = Format$(Me!InvoiceNumber, "\I000000")

 

[Seph]

try:

Me.Caption = Format$(Me!InvoiceNumber, "\I000000")

Your knowledge of Access is truly impressive.

I can't thank you or the Forum enough.