Multiselect listbox to print seperate pdf reports - Pbaldy method

M

Mina Garas Daniel

Registered User.
Local time
Today, 18:46
Joined
Jul 21, 2017
Messages
66
Hi there
Greetings
My question for Pbaldy and anybody can help
I use your method to filter reports using multiselect listbox from this link

My question is how to improve this code to print pdf reports individually using multiselect listbox and give for each report name based on listbox itself

I hope u can help in this issue as usual
Thanks
 
I do not think that is the correct link? :unsure:

Perhaps look at the Similar threads as the bottom of this thread?
 
If the field to provide file name is in listbox second column, consider:

DoCmd.OutputTo acOutputReport, , acFormatPDF, "folderpath\" & ctl.Column(2, varItem) & ".pdf"
 
June7 said:
If the field to provide file name is in listbox second column, consider:

DoCmd.OutputTo acOutputReport, , acFormatPDF, "folderpath\" & ctl.Column(2, varItem) & ".pdf"
Click to expand...
Dear June7
I tried that but nothing happen
no pdf reports created

Code: 
Private Sub Command14_Click()
Dim strWhere As String
Dim ctl As control
Dim varItem As Variant

'make sure a selection has been made
If Me.lstFProductSearch.ItemsSelected.Count = 0 Then
MsgBox "Must select at least 1 Item"
  Exit Sub
End If

'add selected values to string
Set ctl = Me.lstFProductSearch
    For Each varItem In ctl.ItemsSelected
    strWhere = strWhere & ctl.ItemData(varItem) & ","
Next varItem
   
'trim trailing comma
strWhere = Left(strWhere, Len(strWhere) - 1)
     
'open the report, restricted to the selected items
DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK IN(" & strWhere & ")"
DoCmd.OutputTo acOutputReport, "CST_FP", acFormatPDF, "Folderpath" & ctl.Column(2, varItem) & ".PDF"
DoCmd.Close acReport, "CST_FP"
End Sub
 
Well, you need to replace "Folderpath\" with some real folder path for your situation.
 
June7 said:
Well, you need to replace "Folderpath\" with some real folder path for your situation.
Click to expand...
Code: 
Dim strWhere As String
Dim ctl As control
Dim varItem As Variant

'make sure a selection has been made
If Me.lstFProductSearch.ItemsSelected.Count = 0 Then
 MsgBox "Must select at least 1 Item"
  Exit Sub
End If

'add selected values to string
Set ctl = Me.lstFProductSearch
    For Each varItem In ctl.ItemsSelected
    strWhere = strWhere & ctl.ItemData(varItem) & ","
Next varItem
    
'trim trailing comma
strWhere = Left(strWhere, Len(strWhere) - 1)
      
 'open the report, restricted to the selected items
DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK IN(" & strWhere & ")"
DoCmd.OutputTo acOutputReport, "CST_FP", acFormatPDF, "C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
DoCmd.Close acReport, "CST_FP"
 
Mina Garas Daniel said:
Code: 
Dim strWhere As String
Dim ctl As control
Dim varItem As Variant

'make sure a selection has been made
If Me.lstFProductSearch.ItemsSelected.Count = 0 Then
MsgBox "Must select at least 1 Item"
  Exit Sub
End If

'add selected values to string
Set ctl = Me.lstFProductSearch
    For Each varItem In ctl.ItemsSelected
    strWhere = strWhere & ctl.ItemData(varItem) & ","
Next varItem
   
'trim trailing comma
strWhere = Left(strWhere, Len(strWhere) - 1)
     
'open the report, restricted to the selected items
DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK IN(" & strWhere & ")"
DoCmd.OutputTo acOutputReport, "CST_FP", acFormatPDF, "C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
DoCmd.Close acReport, "CST_FP"
Click to expand...
I did but same result
 
what is FPPK, is it Numeric or Text?
Code: 
'add selected values to string
Set ctl = Me.lstFProductSearch
For Each varItem In ctl.ItemsSelected
    'strWhere = strWhere & ctl.ItemData(varItem) & ","


    'open the report, restricted to the selected items

    ' comment this if FPPK is not numeric
    ' if FPPK is numeric
    DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK = " & ctl.ItemData(varItem)
    
    ' if FPPK is Text
    'DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK = '" & ctl.ItemData(varItem) & "'"
    
    DoCmd.OutputTo acOutputReport, "CST_FP", acFormatPDF, "C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
    DoCmd.Close acReport, "CST_FP"

Next varItem
  
'trim trailing comma
'strWhere = Left(strWhere, Len(strWhere) - 1)
    
'open the report, restricted to the selected items
'DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK IN(" & strWhere & ")"
'DoCmd.OutputTo acOutputReport, "CST_FP", acFormatPDF, "C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
'DoCmd.Close acReport, "CST_FP"
 
arnelgp said:
what is FPPK, is it Numeric or Text?
Code: 
'add selected values to string
Set ctl = Me.lstFProductSearch
For Each varItem In ctl.ItemsSelected
    'strWhere = strWhere & ctl.ItemData(varItem) & ","


    'open the report, restricted to the selected items

    ' comment this if FPPK is not numeric
    ' if FPPK is numeric
    DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK = " & ctl.ItemData(varItem)
   
    ' if FPPK is Text
    'DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK = '" & ctl.ItemData(varItem) & "'"
   
    DoCmd.OutputTo acOutputReport, "CST_FP", acFormatPDF, "C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
    DoCmd.Close acReport, "CST_FP"

Next varItem
 
'trim trailing comma
'strWhere = Left(strWhere, Len(strWhere) - 1)
   
'open the report, restricted to the selected items
'DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK IN(" & strWhere & ")"
'DoCmd.OutputTo acOutputReport, "CST_FP", acFormatPDF, "C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
'DoCmd.Close acReport, "CST_FP"
Click to expand...
Numeric
I use ms 365 if that will make difference
 
try the code and check if it produced the pdf.
 
arnelgp said:
what is FPPK, is it Numeric or Text?
Code: 
'add selected values to string
Set ctl = Me.lstFProductSearch
For Each varItem In ctl.ItemsSelected
    'strWhere = strWhere & ctl.ItemData(varItem) & ","


    'open the report, restricted to the selected items

    ' comment this if FPPK is not numeric
    ' if FPPK is numeric
    DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK = " & ctl.ItemData(varItem)
 
    ' if FPPK is Text
    'DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK = '" & ctl.ItemData(varItem) & "'"
 
    DoCmd.OutputTo acOutputReport, "CST_FP", acFormatPDF, "C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
    DoCmd.Close acReport, "CST_FP"

Next varItem

'trim trailing comma
'strWhere = Left(strWhere, Len(strWhere) - 1)
 
'open the report, restricted to the selected items
'DoCmd.OpenReport "CST_FP", acViewPreview, , , acHidden, "FPPK IN(" & strWhere & ")"
'DoCmd.OutputTo acOutputReport, "CST_FP", acFormatPDF, "C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
'DoCmd.Close acReport, "CST_FP"
Click to expand...
Dear arnel
i did your modification on code and i delete this
Code: 
"C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
part to allow access let me select path folder and i select 2 items from listbox the problem now is each pdf file contain 2 items data not one item as i need
thanks
 
Mina Garas Daniel said:
Dear arnel
i did your modification on code and i delete this
Code: 
"C:\Users\Mina.Garas\Desktop\to costing" & ctl.Column(2, varItem) & ".PDF"
part to allow access let me select path folder and i select 2 items from listbox the problem now is each pdf file contain 2 items data not one item as i need
thanks
Click to expand...
Need to show YOUR code now,as @arnelgp's code would not do that? :(
 
You must log in or register to reply here.

Similar threads

amorosik
How to display a 'running total' on a report preview AND on pdf/print?
Replies
9
Views
415
gemma-the-husky
gemma-the-husky
S
extremely slow when exporting PDF
Replies
8
Views
467
spaLOGICng
S
P
Print report to PDF, Excel, etc
Replies
0
Views
614
Pat Hartman
P
P
Solved current record PDF issues
2
Replies
23
Views
671
Pat Hartman
P
Juice
Printing html file to a specific printer
Replies
4
Views
359
arnelgp
arnelgp

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom