Hi Julian,
Actually I am using code from RTF2PDF feature from PDFControl demo that I downloaded.
The code I am using in my VB6 program to convert RTF to PDF is
Private Sub Command1_Click()
LoadEMFFile.Action = 1
If LoadEMFFile.FileName <> "" Then
RichTextBox1.LoadFile FileName
End If
End Sub
Private Sub Command2_Click()
If PDFControl1.StartEngine(DLLName.Text, "LicenseName", "LicenseCode", 0) = True Then
PDFControl1.BeginDoc FileName.Text, 0
PDFControl1.ExecIntCommand 9, RichTextBox1.hWnd 'intern command to draw a richedit (using a fixed border 0.5 inch and current page size
PDFControl1.EndDoc
Else
MsgBox "We were not able to load the PDF Engine DLL", 0, "Error!"
End If
End Sub
This code I got from ....\wPDFControl\Demos\VB6\RICHEDIT
So I would say this is the code I was looking for.
If you got different link/code for VB6 to convert from RTF to PDF please provide me.
And I am very glad to get the answers back from you very quickly.
Only problem is the time difference between you and me.
Thanks