Victor
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 28/03/2012 17:49 hs
victormmcoelho@gmail.com
|
|
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/03/2012 08:25 hs
Amigos, este tipo de problema muita gente tem, ou poderá ter. Eu sou um caso destes. Sugiro que coloquem a solução à disposição pra downlod no fórum. Obrigado. |
|
|
|
Zeuzebio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/03/2012 18:52 hs
Prezados...
Junto com um dos colegas, via teamviewer e Skype, conseguimos fazer os boletos dele ficarem 100% funcionais, com geração do PDF (escolhe-se o nome e local do PDF), usando tanto o Crystal quando o PDFCreator (dá para ser com qualquer um deles).
Foi usado meu código, de meu ERP, para tal. Dei uma cópia do meu código para o colega que tem usado profissionalmente nos clientes dele, assim como uso nos meus.
Quem desejar maiores informações ou algum auxílio, me contacte pelo Skype: sistema.comdoro
Abraços,
Euzébio Cruz
Criciúma - SC
|
|
|
|
Zeuzebio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/04/2012 16:05 hs
Prezados,
Gostaria de fazer como sugeriu nosso amigo J. Carlos, mas por se tratar de algumas funções que precisam de explicação, uma vez que será usado/passado o código fonte, melhor conversarmos por Skype (sistema.comodoro). Não adiantaria eu passar um código que os deixaria sem entender, sem norte e acabariam não usando.
Quem desejar, poderá me contactar.
Grande abraço a todos.
Euzébio.
|
|
|
|
|
|
Postada em 03/04/2015 19:44 hs
Aqui está um exeplo simples de como usar os comandos básicos do PDFCreator usando apenas o botão "botCriarPDF" :
Para que o código funcione você deve ter o PDFCreator instalado, saber qual é o índice dele na coleção Printers e colocá-lo na linha 'Set Printer=Printers(1)'.
Também mudar a linha que indica a pasta de gravação e nas Referências do Projeto você deve adicionar o PDFCreator.exe que está na pasta de instalação (arquivos de programas).
Option Explicit
Private WithEvents PDFCreator1 As PDFCreator.clsPDFCreator
Private Opçoes As clsPDFCreatorOptions
Private NaoIniciou As Boolean, Endereço As String
Private Sub Form_Load()
'Este código basicamente verifica se está tudo OK com o PDFCreator
'Caso contrário, o botão CriarPDF ficará desabilitado
NaoIniciou = True
Set PDFCreator1 = New clsPDFCreator
With PDFCreator1
.cVisible = True
If .cStart("/NoProcessingAtStartup") = False Then
If .cStart("/NoProcessingAtStartup", True) = False Then
botCriarPDF.Enabled = False
MsgBox "O PDFCreator não está respondendo. ", 64
Exit Sub
End If
.cVisible = True
End If
Set Opçoes = .cOptions
.cClearCache
NaoIniciou = False
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
'Esta procedure apenas libera o PDFCreator
If NaoIniciou = False Then
DoEvents
PDFCreator1.cClose
End If
DoEvents
Set PDFCreator1 = Nothing
Set Opçoes = Nothing
End Sub
Private Sub botCriarPDF_Click()
Dim Path As String, Filename As String
'Aqui voce indica a pasta que vai ficar o pdf
Path = "D:Nova Pasta"
'Aqui voce dá nome ao arquivo
Filename = "Teste.pdf"
botCriarPDF.Enabled = False
With Opçoes
.AutosaveDirectory = Path
.AutosaveFilename = Filename
.UseAutosave = 1
.UseAutosaveDirectory = 1
.AutosaveFormat = 0 'formato PDF
End With
Set PDFCreator1.cOptions = Opçoes
'Aqui voce indica o índice da impressoraPDF no seu PC
Set Printer = Printers(1)
With Printer
.CurrentY = 600
.PrintQuality = 150
.FontName = "Tahoma"
.Font.Size = 10
End With
'Aqui voce coloca conteúdo do arquivo pdf
Printer.Print Tab(14); "Eu adoro isso."
Printer.EndDoc
PDFCreator1.cPrinterStop = False
botCriarPDF.Enabled = True
Screen.MousePointer = vbHourglass
'Voce não pode restaurar as opções aqui, porque o trabalho de impressão não está pronto!
End Sub
Private Sub PDFCreator1_eReady()
'Este evento indica o fim do trabalho de impressão
PDFCreator1.cPrinterStop = True
Screen.MousePointer = vbNormal
MsgBox "Documento pdf foi criado.", 64
End Sub
|
|
|
|
Inácio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 28/05/2018 18:32 hs
Boa noite.
Sei que o post é antigo, mas, utilizando e exemplo disponibilizado só se consegue fazer individualmente. Não que seja o código em si, mas o PDF Creator, quando coloco para imprimir e 1 a 500, perde muitos documentos. Na verdade, ele perde 80% do que se pede a imprimir.
Se alguém tiver a solução, eu agradeço.
|
|
|
|
|
