Ir para conteúdo
Fórum Script Brasil

FerNB

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Sobre FerNB

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

FerNB's Achievements

0

Reputação

  1. Se alguém puder me ajudar... Estou com a seguinte dificuldade, quando exporto o CR para PDF ao abrir o PDF em um PC que não tenha a fote do código de barras da o erro que a fonte não foi localizada e no lugar do código de barras aparece apenas uns pontinhos, no PC onde montei o CR ao abrir o PDF aparece tudo OK pois tem a fonte. Como consigo resolver esse problema? Segue o código que estou usando para criar o pdf Dim RelContasRece As CRAXDRT.Report Dim m_Application As New CRAXDRT.Application Set RelContasRece = m_Application.OpenReport(App.Path & "\crbloqueto.rpt", 1) RelContasRece.Database.LogOnServer "pdsodbc.dll", "Banco de Dados", "", "Identificaço do Logon", PWDPdf For I = 1 To RelContasRece.Database.Tables.Count RelContasRece.Database.Tables(I).SetLogOnInfo "Banco de Dados", "", "Identificaço do Logon", PWDPdf Next I RelContasRece.DiscardSavedData With RelContasRece .ExportOptions.DiskFileName = App.Path & "\Boleto.pdf" .EnableParameterPrompting = False .ExportOptions.FormatType = crEFTPortableDocFormat .ExportOptions.PDFExportAllPages = True .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.RTFExportAllPages = True .Export False End With Obrigado!!!
  2. Se alguém puder me ajudar... Estou com a seguinte dificuldade, quando exporto o CR para PDF ao abrir em outro PC não encontra a fonte do código de barras, no meu PC onde tenho a fonte aparece normal mas no PC que não tem a fonte da o erro que a fonte não foi localizada. Como consigo resolver esse problema? Segue o código que estou usando para criar o pdf With RelContas dirArquivo = App.Path & "\Boleto.pdf" .ExportOptions.DiskFileName = dirArquivo .EnableParameterPrompting = False .ExportOptions.FormatType = crEFTPortableDocFormat .ExportOptions.PDFExportAllPages = True .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.RTFExportAllPages = True .Export False End With
×
×
  • Criar Novo...