Private Declare Sub GetPcl2PdfVersion Lib "pcl2pdf32.dll" (ByVal Version As String) Private Declare Sub SetMutexTimeout Lib "pcl2pdf32.dll" (ByVal Milliseconds As Long) Private Declare Function ConvertPcl2PdfNt Lib "pcl2pdf32.dll" (ByVal InPclFilename As String, ByVal OutPdfFilename As String, ByVal par1 As String, ByVal par2 As String, ByVal par3 As String, ByVal par4 As String) As Long Dim InPclFilename As String Dim OutPdfFilename As String Dim par1 As String Dim par2 As String Dim par3 As String Dim par4 As String Dim Err As Long InPclFilename = "oldfile.pcl" OutPdfFilename = "newfile.pdf" par1 = "" par2 = "" par3 = "" par4 = "" Err = ConvertPcl2PdfNt(InPclFilename, OutPdfFilename, par1, par2, par3, par4) MsgBox ("ConvertPcl2PdfNt returned " + Str$(Err))Thanks