פרסמתי את השאלה גם בפורום תיכנות....אבל שווה לנסות גם פה!

אני משתמש ב-PDFCreator 0.9.3 ליצירת קובץ PDF מדוח של MS-Access .
ישנן שתי אפשרויות לאתחל ושניהם אינן עובדות!
1. עם הוספת PDFCreator לפרוייק ב- reference עם הקוד:
ציטוט:

Dim PDFCreator1 As PDFCreator.clsPDFCreator
Set PDFCreator1 = New clsPDFCreator

ישנה שגיאת ריצה-בשורה השניה

2. ללא איתחול ראשוני

ציטוט:
Dim PDFCreator1 As ObjectSet

PDFCreator1 = CreateObject("PDFCreator.clsPDFCreator")

בו הכל עובר בשלום ללא שגיאות אך בפועל clsPDFCreator אינו מאותחל באופן תקין אלה ואינו מזהה את כל הפרמטרים של ה-CLASS

רעיונות ???

אין מידע באתר עצמו
מאיפה לקחת את הקוד הזה

http://sourceforge.net/forum/message.php?msg_id=2219067

PDFCreator-0_9_3_Source.zip

קוד:

 Option Compare Database
Option Explicit
' Add a reference to PDFCreator
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const maxTime = 10	' in seconds
Private Const sleepTime = 250 ' in milliseconds
 
Public Function Start()
	PrintRep "Report1"
End Function
 
Public Sub PrintRep(RepName As String)
Dim PDFCreator1 As PDFCreator.clsPDFCreator, DefaultPrinter As String, c As Long, _
OutputFilename As String
Set PDFCreator1 = New clsPDFCreator
With PDFCreator1
	 .cStart "/NoProcessingAtStartup"
	 .cOption("UseAutosave") = 1
	 .cOption("UseAutosaveDirectory") = 1
	 .cOption("AutosaveDirectory") = "C:\"
	 .cOption("AutosaveFilename") = RepName
	 .cOption("AutosaveFormat") = 0							' 0 = PDF
	 DefaultPrinter = .cDefaultPrinter
	 .cDefaultPrinter = "PDFCreator"
	 .cClearCache
	 DoCmd.OpenReport RepName, acViewNormal
	 .cPrinterStop = False
End With
c = 0
Do While (PDFCreator1.cOutputFilename = "") And (c < (maxTime * 1000 / sleepTime))
	 c = c + 1
	 Sleep 200
Loop
OutputFilename = PDFCreator1.cOutputFilename
With PDFCreator1
	 .cDefaultPrinter = DefaultPrinter
	 Sleep 200
	 .cClose
End With
Sleep 2000 ' Wait until PDFCreator is removed from memory
 
If OutputFilename = "" Then
	 MsgBox "Creating pdf file." & vbCrLf & vbCrLf & _
	 "An error is occured: Time is up!", vbExclamation + vbSystemModal
End If
End Sub

זה נראה מודול אוניברסאלי בצורה מסויימת, אתה משתמש בו ?
או שגזרתה מה שנוח לך ממינו ?

OK הסתדרתי
(כמובן שזה הקובץ האונברסלי....זה שאני משתמש סתם היה מסבך ת'עיניינים)

לצורך העניין אני לא יודע בדיוק בזכות מה? כי עשיתי 100 פעולות בו זמנית.... אך כנראה שהסרה + ניקוי, כל זכר מהתוכנה בריגסטרי .... והתקנה מחדש פתרה ת'בעיה.
עובד מצויין ועכשיו אני מצליח לשלוח אוטומטית דוחות מאקסס בפורמט PDF לרשימות תפוצה במייל!
תודה!