Combo Box with Lebans Report to PDF

[serpiko]

Hi I have a Combo Box with the following code to the Click


DimpROCEDURA AS String
pROCEDuRE = ComboBox332.colum (0)
DoCmd.OpenReport (pROCEDuRE), stLinkCriteria



In the settings of the ComboBox item to RowSource I have the name of each report to print that if I click on that I print the report, now if I use the code to convert the Lebans Report to PDF and in the ComboBox's all there is only 1 Report fine but if I have more than 1 of this Report does not create the PDF, else I create the PDF with the First and Last Name No. of protocols and current date below I insert the code I use.


Dim blRet As Boolean
' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.
Me.Testo259 = Forms!Segnalazione_Registro_Infortuni!Testo259
blRet = ConvertReportToPDF("Segnalazione Registro Infortuni", vbNullString, _
"\\SERVER\SEGRETERIA\TRASMISSIONI\VARIE\Segnalazio ne Registro Infortuni\" & Me.Testo401 & " " & Me.Testo403 & " Prot. " & Me.Testo259 & " del " & Me.Testo408 & ".pdf", False, False, 150, "", "", 0, 0, 0)


EDIT: Source Control = RowSource

Thx

[ItsMe]

Maybe you can replace "Segnalazione Registro Infortuni" with pROCEDuRE

blRet = ConvertReportToPDF(pROCEDuRE, vbNullString

[serpiko]

Maybe you can replace "Segnalazione Registro Infortuni" with pROCEDuRE

blRet = ConvertReportToPDF(pROCEDuRE, vbNullString

that's what I wrote is what I use on a Combo Box that has only 1 Report, instead I want to use the report to PDF on a Combo Box that has more Report

[serpiko]

I have done so


DimpROCEDURA AS String
pROCEDuRE = ComboBox332.colum (0)

Dim blRet As Boolean
' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.
Me.Testo259 = Forms!Segnalazione_Registro_Infortuni!Testo259
blRet = ConvertReportToPDF(pROCEDURA, vbNullString, _
"\\SERVER\SEGRETERIA\TRASMISSIONI\VARIE\Segnal azio ne Registro Infortuni\" & Me.Testo401 & " " & Me.Testo403 & " Prot. " & Me.Testo259 & " del " & Me.Testo408 & ".pdf", False, False, 150, "", "", 0, 0, 0)


but does not do anything and not even an error

[serpiko]

Help Me pls

[ssanfu]

You are missing a space between "Dim" and "pROCEDURA AS String"

You are trying to declare "pROCEDURA" but assign a combo box value to "pROCEDuRE"

And you use "pROCEDURA" (which is nothing) is the call to "ConvertReportToPDF"

Column is misspelled: ComboBox332.colum (0) should be ComboBox332.column (0)

The first two lines of EVERY module should be:

Option Compare Database
Option Explicit

Try this:

Dim blRet As Boolean
Dim pROCEDURA AS String
dim SaveFileName as String


'if the bound column of ComboBox332 is 1, you don't need to use ".column(0)"
pROCEDuRA = Me.ComboBox332.column(0) 

Me.Testo259 = Forms!Segnalazione_Registro_Infortuni!Testo259

SaveFileName ="\\SERVER\SEGRETERIA\TRASMISSIONI\VARIE\Segnal azio ne Registro Infortuni\" 
SaveFileName = SaveFileName & Me.Testo401 & " " 
SaveFileName = SaveFileName & Me.Testo403 & " Prot. "   '<- why the dot?? Bad naming convention IMO
SaveFileName = SaveFileName & Me.Testo259 & " del " 
SaveFileName = SaveFileName & Me.Testo408 & ".pdf"


' Call our convert function
' Please note the last param signals whether to perform
' font embedding or not. I have turned font embedding ON for this example.

blRet = ConvertReportToPDF(pROCEDURA, vbNullString, SaveFileName, False, False, 150, "", "", 0, 0, 0)

Single step through the code to see if the variables (pROCEDURA & SaveFileName) have the correct values.

It would really help if you take the time to rename your controls to a meaningful name.
Me.Testo401, Me.Testo403, ComboBox332 doesn't tell you much about the data, does it?

[serpiko]

Very Very Good

Solved My Problem Thaks

[serpiko]

Excuse me if I wanted to help, and last put the date when I save the file as I do !?

[ssanfu]

You want to add a date to the save file name?
Something like this

SaveFileName ="\\SERVER\SEGRETERIA\TRASMISSIONI\VARIE\Segnal azio ne Registro Infortuni\" 
SaveFileName = SaveFileName & Me.Testo401 & " " 
SaveFileName = SaveFileName & Me.Testo403 & " Prot. "   '<- why the dot?? Bad naming convention IMO
SaveFileName = SaveFileName & Me.Testo259 & " del " 
SaveFileName = SaveFileName & Me.Testo408 & DateFieldHere 
SaveFileName = SaveFileName & Me.Testo408 & ".pdf"

[serpiko]

me error variable. I confirm that I have to put in testo408 = date ()

[ssanfu]

Sorry I wasn't thinking straight.

Change to

SaveFileName ="\\SERVER\SEGRETERIA\TRASMISSIONI\VARIE\Segnal azio ne Registro Infortuni\" 
SaveFileName = SaveFileName & Me.Testo401 & " " 
SaveFileName = SaveFileName & Me.Testo403 & " Prot. "   '<- why the dot?? Bad naming convention IMO
SaveFileName = SaveFileName & Me.Testo259 & " del " 
SaveFileName = SaveFileName & Me.Testo408 & ".pdf"

Debug.Print SaveFileName 

Copy the line from the immediate window and show where you want the date.

[serpiko]

I get the date in the format mm / dd / yyyy having put in testo408 = Date $ () instead I would like to have the Italian format dd / mm / yyyy

Thank

[ssanfu]

Use the format() function to change the format when creating the new file name : Format(TheDate, "dd_mm_yyyy")

Try change this line

SaveFileName = SaveFileName & Me.Testo408 & ".pdf"

to

SaveFileName = SaveFileName & Format(Me.Testo408, "dd_mm_yyyy") & ".pdf"

[serpiko]

thx very good