2 Replies Latest reply: Jul 21, 2016 2:36 PM by Clever Anjos RSS

    Gerar PDF com PDF-XChage

    Edson Lana

      Boa tarde,

       

      Estou fazendo um teste para gerar um pdf utilizando o PDF-XChange 3.0 porém pelo codigo que tenho aqui, ele gera um arquivo chamado QlikviewPrinting.pdf porém não é de forma automática para salvar o arquivo, ou seja, o arquivo é gerado mas eu preciso indicar o caminho onde o arquivo será salvo.

      Sabem como faço, se é possível pelo XChange, para deixar automático a gravação do arquivo em uma determinada pasta?, para depois eu selecionar o arquivo e enviar por email.

       

      codigo usado do PDF-XChance

       

      public Sub Print_PDF(sPDFPath_src, sPDFPath_dest, sPDFName_dest, sReportID)

       

      ActiveDocument.PrintReport sReportID, "PDF-XChange 3.0", false

       

      Set objFSO = CreateObject("Scripting.FileSystemObject")

      'If the folder not exists then -> create

      If Not objFSO.FolderExists(sPDFPath_dest) Then

        Set newfolder = objFSO.CreateFolder(sPDFPath_dest)

      End If

       

      PDFFullName = sPDFPath_dest & "\" & sPDFName_dest

      'If the file exists then -> delete

      If objFSO.FileExists(PDFFullName) then

        objFSO.DeleteFile PDFFullName

      End If

      objFSO.MoveFile sPDFPath_src, PDFFullName

       

      Set objFSO = Nothing

       

      ActiveDocument.GetApplication.Sleep 2000

       

      End Sub