1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[Vb6] Abrir e Imprimir PDF

Discussão em 'Programação' iniciada por DarkT, 23 de Maio de 2008. (Respostas: 9; Visualizações: 6222)

  1. DarkT

    DarkT Power Member

    Tenho um butao ao clicar no butao quero abrir um ficheiro PDF.. :\PAT\ManualdoUtilizador.pdf


    Clicar num Butao e fazer o "output" de uma listbox para um ficheiro PFD, e tambem imprimir para papel o conteudo de uma Listbox.

    Obrigado ..
     
  2. DarkT

    DarkT Power Member

    Alguem O.o?

    nao encontro nada ...


    o maximo que encontrei era Open "C:\Pat\manual.pdf"

    mas nao dava ...
     
  3. silencept

    silencept Power Member

    boas...
    primeiro cria um Form MDIform
    de seguinda crias um formulário com o nome de frmpdf e la metes um componente chamado "WEBBrowser".

    De seguinda no botão onde queres Clicar para procurar o pdf e posteriormente o imprimir metes o seguinte código(tens de inserir nesse formulário um coponente chamado " commondialog ":

     
  4. DarkT

    DarkT Power Member

    tipo mas isso vai procurar qual o PDF certo?

    Quero tipo mais simples ...

    clicar num botao e abre logo o PDF que quero, o PDF e sempre o mesmo ... nao e preciso estar sempre a seleciona-lo...
     
  5. silencept

    silencept Power Member

    tens de adaptar o código
     
  6. DarkT

    DarkT Power Member

    Epa nao encontro nenhum componente web browser :S

    aquilo para adicionar novos componetes tens mesmo acercteza k e web browser? : /
     
  7. bubu.mei

    bubu.mei Power Member


    Se o que tu queres fazer é abrir um pdf no acrobat reader basta teres este codigo:

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Private Sub Command1_Click()
    ShellExecute 0, vbNullString, "<local do pdf>", vbNullString, vbNullString, 1
    End Sub
     
  8. DarkT

    DarkT Power Member

    Obrigadao =D

    Já consegui :P


    Agora so me falta imprimir 2 Listbox ...

    [​IMG]


    Tipo depois imprimia uma factura, sei que se usa o obejcto printer, mas nao sei como imprimir o conteudo das list box e tem mesmo que ficar certo ... : /

    Desde ja obrigado =)
     
    Última edição: 26 de Maio de 2008
  9. DarkT

    DarkT Power Member

    Código:
    Private Sub Command4_Click()
    Printer.Print List1.ListIndex
    Printer.Print List2.ListIndex
    Printer.EndDoc
    End Sub
    
    Nao da queria imprimir 2 listbox :S

    Como faço nas text box consigo ...
     
  10. DarkT

    DarkT Power Member

    ja consegui desculpem la o double post:

    Código:
    For j = 0 To List2.ListCount - 1
     Printer.Print List2.List(j)
     Printer.Print List1.List(j)
    Next j
    Printer.Print Label1.Caption
    Printer.Print resultado.Caption
    Printer.EndDoc
     
    
     

Partilhar esta Página