none
TRANSFORMAR .TIF EM PDF UUURRGEEENNTEEE

    Question

  • BOA NOITE SOU NOVO POR AQUI E QUERIA SABER COMO FAZER UM PROGRAMA EM VB6 QUE GERE DE UM QRQUIVO .TIF UM ARQUIVO PDF. PRECISO MUITO DISSO PARA ONTEM, DESCULPA A PRESSA!

    OBRIGADO

    Thursday, September 18, 2008 11:41 PM

Answers

  •  

    MUUUIIITOOOOO OBRIGADO

    Consegui, obrigado a todos pelas dicas e desculpa meu amadorismo.

    Segue abaixo codigo pronto e funcionando.....

    Valeu mesmo gente...

    Obrigado

     

    Private Sub Command1_Click()
        dlg.Filter = "Arquivos TIF (*.TIF)|*.TIF|Todos os arquivos (*.*)|*.*"
        dlg.ShowOpen
       
        If dlg.FileName <> "" Then
            txtsaida.Text = dlg.FileName
        End If
        'Form2.Show vbModal
        'txtsaida.Text = Caminho
    End Sub


    Private Sub Command2_Click()
    Dim pdf

    Set pdf = CreateObject("Tiff2PdfX.Tiff2Pdf")

    pdf.ConvertTiffToPDF dlg.FileName, "..\D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-novo.pdf"

    pdf.ConvertTiffToPDF dlg.FileName, "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-novo.pdf"

    Set pdf = Nothing

    End Sub

     

    Monday, September 22, 2008 5:51 PM

All replies

  • Rodrigo,

     

    Você pode tentar utilizar os drivers PDF disponíveis livremente na internet (PDF995, PrimoPDF) e imprimir o arquivo TIFF em PDF. Verifique também se não existem códigos open source para realizar esse tipo de transformação ou até mesmo componentes ActiveX de terceiros.

     

    Segue alguns links úteis:

    http://blog.codebeach.com/2008/02/convert-multipage-tiff-to-pdf-in-net.html

    http://www.guangmingsoft.net/tiff2pdf/

    http://www.freedownloadscenter.com/Programming/ActiveX/TIFF_To_PDF_ActiveX_Component.html

     

     

    Att.

     

    Ari C. Raimundo

     

    Friday, September 19, 2008 2:23 AM
  • Raimundo obrigado

    Mas estas ferramentas se referem a vb.net... elas tamnem funcionam para vb6 ???

    nao sei se a apergunta e pertinente mas sou novato nisso

    obrigado

    Friday, September 19, 2008 2:39 AM
  •  

    Friday, September 19, 2008 2:45 AM
  • Rodrigo,

     

    Bom Dia!

     

    Quando eu precisei disso, acabei utilizando um componente desenvolvido por um terceiro.

    Caso queira dar uma olhadinha: http://blog.codebeach.com/2008/02/convert-multipage-tiff-to-pdf-in-net.html

     

    []´s

    Friday, September 19, 2008 12:18 PM
  • Rodrigo,

     

    O código é em VB.NET, mas como disse o Ricardo existem componentes de terceiros.

     

    Att.

     

    Ari C. Raimundo

     

    Friday, September 19, 2008 2:26 PM
  •  

    Friday, September 19, 2008 5:54 PM
  • Buenas tardes!!! to quase la!!!!!!

    olha só, tenho um script em vermelho, ele sozinho faz a conversão, mas coloquei ele dentro de meu programa e queria saber como faço para ao em vez de eu fornecer o endereço em azul ele  capturar  este endereço direto de uma txt pre definida onde o usuário coloca o endereço da imagem atarves da ferramenta dirlist box ??????

     

    Private Sub Command1_Click()
    Dim pdf
    Set pdf = CreateObject("Tiff2PdfX.Tiff2Pdf")

    pdf.ConvertTiffToPDF "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-9509053.tif", "..\D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-95090531.pdf"

    'use | to combine multiple files
    pdf.ConvertTiffToPDF "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-9509053.tif|..\google-ccitt-3.tiff|..\google-ccitt-4.tiff|..\google-rle.tiff", "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-95090531.pdf"

    Set pdf = Nothing

    End Sub

     

    Friday, September 19, 2008 8:33 PM
  • Rodrigo,

     

    Para isso você pode adicionar um textbox e um botão no seu formulário.

     

    No click do botão, informe:

     

    Code Snippet

    Dim AbrirArquivo As New OpenFileDialog

    AbrirArquivo.InitialDirectory =

    My.Computer.FileSystem.SpecialDirectories.MyDocuments

    AbrirArquivo.Filter = "Arquivos TIF (*.TIF)|*.TIF|Todos os arquivos

    (*.*)|*.*"

    If (AbrirArquivo.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK)

    Then

    Me.txt_arquivo.Text = AbrirArquivo.FileName

    End If

     

     

     

     

     

    Friday, September 19, 2008 8:48 PM
  • Ricardo

     

    Eu fiz isto mas preciso saber depois de feitos o que vc me falou como jogo o valor que esta na txt em questao para dentro daquele codigo que esta em vermelho e na verdade deve ser no lugar da linha azul????

    Preciso que aquele codigo em vermelho quew postei reconheça o que esta na txt que vc se refere!!!!

     

     

    Private Sub Command1_Click()
    Dim pdf
    Set pdf = CreateObject("Tiff2PdfX.Tiff2Pdf")

    pdf.ConvertTiffToPDF "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-9509053.tif", "..\D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-95090531.pdf"

    'use | to combine multiple files
    pdf.ConvertTiffToPDF "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-9509053.tif|..\google-ccitt-3.tiff|..\google-ccitt-4.tiff|..\google-rle.tiff", "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-95090531.pdf"

    Set pdf = Nothing

    End Sub

    Saturday, September 20, 2008 4:44 PM
  • Rodrigo,

    Basta substituir a sua linha em azul pelo textbox que terá armazenado o nome do arquivo selecionado pelo usuário.

    []´s
    Saturday, September 20, 2008 6:47 PM
  • Ricardo

    ok mas eu nao consegui colocar o comando da txt que vai ali poderia me dar um  exemplo!!

    obrigado

    Sunday, September 21, 2008 4:29 PM
  • Rodrigo,

     

    Bom Dia!

     

    Segue:

     

    Exemplo que eu havia passado para você
    Dim MeuArquivo as String 'variável para armazenar o arquivo selecionado.
    Dim AbrirArquivo As New OpenFileDialog
    AbrirArquivo.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
    AbrirArquivo.Filter = "Arquivos TIF (*.TIF)|*.TIF|Todos os arquivos (*.*)|*.*"
    If (AbrirArquivo.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
        MeuArquivo = AbrirArquivo.FileName
    End If

     

     

     

    Exemplo passado por você

    Private Sub Command1_Click()
    Dim pdf
    Set pdf = CreateObject("Tiff2PdfX.Tiff2Pdf")
    pdf.ConvertTiffToPDF MeuArquivo 'utilize a variável aqui.
    'use | to combine multiple files
    pdf.ConvertTiffToPDF "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-9509053.tif|..\google-ccitt-3.tiff|..\google-ccitt-4.tiff|..\google-rle.tiff", "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-95090531.pdf"
    Set pdf = Nothing
    End Sub

     

     

    Monday, September 22, 2008 11:22 AM
  •  

    MUUUIIITOOOOO OBRIGADO

    Consegui, obrigado a todos pelas dicas e desculpa meu amadorismo.

    Segue abaixo codigo pronto e funcionando.....

    Valeu mesmo gente...

    Obrigado

     

    Private Sub Command1_Click()
        dlg.Filter = "Arquivos TIF (*.TIF)|*.TIF|Todos os arquivos (*.*)|*.*"
        dlg.ShowOpen
       
        If dlg.FileName <> "" Then
            txtsaida.Text = dlg.FileName
        End If
        'Form2.Show vbModal
        'txtsaida.Text = Caminho
    End Sub


    Private Sub Command2_Click()
    Dim pdf

    Set pdf = CreateObject("Tiff2PdfX.Tiff2Pdf")

    pdf.ConvertTiffToPDF dlg.FileName, "..\D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-novo.pdf"

    pdf.ConvertTiffToPDF dlg.FileName, "D:\Arquivos de programas\Microsoft Visual Studio\VB98\rodrigo\scan-novo.pdf"

    Set pdf = Nothing

    End Sub

     

    Monday, September 22, 2008 5:51 PM
  • Outra coisa se eu quizesse que este programa nao pegasse apenas um arquivo mas sim todos os aquivos de uma pasta e fizesse o mesmo processo mantendo o nome original dos arquivos como o que eu mudo no codigo?????

     

    Tuesday, September 23, 2008 7:29 PM
  • Olá,

    Por favor, não poste tópicos com esse tipo de letra não é necessário. Abra um novo tópico com sua dúvida, já que a dúvida inicial foi solucionada.

    Tópico está sendo bloqueado.

    []'s
    Friday, September 26, 2008 7:08 PM
    Moderator