Hallo,
Ik probeer een accessrapport te converteren naar PDF-formaat en te saven op onderstaande lokatie.
Ik heb hiervoor de code van Stephen Lebans gebruikt via deze weg :
http://bytes.com/topic/access/answers/853651-reports-email
Ik heb het eerste gedeelte in een module gestoken. Het 2° gedeelte heb ik niet gebruikt omdat ik niet wens te emailen.
Het 3° gedeelte ziet er zo uit :
Private Sub Command344_Click()
DoCmd.SetWarnings False
On Error GoTo Err_Command344_Click
Dim stDocName As String
Dim blRet As Boolean
stDocName = "RptName"
DoCmd.OpenReport "RptName", acViewPreview, "", "", acNormal
blRet = ConvertReportToPDF("RptName", vbNullString, "c:\Data\Yves\" & "Yves" & ".PDF", False)
DoCmd.Close acReport, "RptName"
Exit_Command344_Click:
Exit Sub
Err_Command344_Click:
MsgBox Err.Description
Resume Exit_Command344_Click
End Sub
Het rapport wordt in PDF gesaved op de juiste lokatie.
Maar na het saven wordt access afgesloten zonder een exacte foutmelding :
Zie attach
Als ik de code stap voor stap uitvoer loopt access vast op volgende regel in de module :
blRet = ConvertUncompressedSnapshot(mUncompressedSnapFile, sOutFile, _
CompressionLevel, PasswordOwner, PasswordOpen, PasswordRestrictions
Kan iemand mij op weg helpen.
Ben een wat einde verhaal.
Yves Dries
Ik probeer een accessrapport te converteren naar PDF-formaat en te saven op onderstaande lokatie.
Ik heb hiervoor de code van Stephen Lebans gebruikt via deze weg :
http://bytes.com/topic/access/answers/853651-reports-email
Ik heb het eerste gedeelte in een module gestoken. Het 2° gedeelte heb ik niet gebruikt omdat ik niet wens te emailen.
Het 3° gedeelte ziet er zo uit :
Private Sub Command344_Click()
DoCmd.SetWarnings False
On Error GoTo Err_Command344_Click
Dim stDocName As String
Dim blRet As Boolean
stDocName = "RptName"
DoCmd.OpenReport "RptName", acViewPreview, "", "", acNormal
blRet = ConvertReportToPDF("RptName", vbNullString, "c:\Data\Yves\" & "Yves" & ".PDF", False)
DoCmd.Close acReport, "RptName"
Exit_Command344_Click:
Exit Sub
Err_Command344_Click:
MsgBox Err.Description
Resume Exit_Command344_Click
End Sub
Het rapport wordt in PDF gesaved op de juiste lokatie.
Maar na het saven wordt access afgesloten zonder een exacte foutmelding :
Zie attach
Als ik de code stap voor stap uitvoer loopt access vast op volgende regel in de module :
blRet = ConvertUncompressedSnapshot(mUncompressedSnapFile, sOutFile, _
CompressionLevel, PasswordOwner, PasswordOpen, PasswordRestrictions
Kan iemand mij op weg helpen.
Ben een wat einde verhaal.
Yves Dries
