[Vb6] Abrir e Imprimir PDF

[DarkT]

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 ..

 

[DarkT]

Alguem O.o?

nao encontro nada ...


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

mas nao dava ...

 

[silencept]

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 ":

Dim arq As String

On Error Resume Next

'define o titulo do diálogo
cmdlg1.DialogTitle = "Procurar Arquivos .pdf"
'define o caminho inicial
cmdlg1.InitDir = App.Path
'define o filtro para exibir os arquivos
arq = "Arqs. PDF(*.pdf)|*.pdf|Todos " & "Arqs. (*.*)|*.*"
cmdlg1.Filter = arq
cmdlg1.FilterIndex = 1
' --------------------------------------------------------------------------- '
' cdlOFNFileMustExist: selecionar somente arquivos que existam |
' cdlOFNHideReadOnly : exibe arquivos que possuem o atributo: Somente Leitura |
' cdlOFNLongNames : exibe nome de arquivos longos |
' cdlOFNExplorer : usa a interface estilo do Explorer |
' --------------------------------------------------------------------------- '
cmdlg1.Flags = cdlOFNFileMustExist + _
cdlOFNHideReadOnly + _
cdlOFNLongNames + _
cdlOFNExplorer
'dispara um erro se não for selecionado algo
cmdlg1.CancelError = True

'abre a caixa de diálogo Abrir Arquivo
cmdlg1.ShowOpen

'exibe o formulario
frmPDF.Show

 

[DarkT]

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...

 

[silencept]

tens de adaptar o código

 

[DarkT]

Epa nao encontro nenhum componente web browser :S

aquilo para adicionar novos componetes tens mesmo acercteza k e web browser? : /

 

[bubu.mei]

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 ..

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

 

[DarkT]

Obrigadao =D

Já consegui


Agora so me falta imprimir 2 Listbox ...




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 =)

 

[DarkT]

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 ...

 

[DarkT]

ja consegui desculpem la o double post:

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