Abrir arquivo PDF

#1

Preciso abrir um arquivo PDF numa aplicação. Só que o arquivo a ser aberto, bem como o caminho dependem do código do produto que está numa variável em tela. Como passar parâmetros variáveis para a função abrir aplicação?

#2

Olá bom dia, se eu entendi bem sua demanda seria algo do tipo:

Dim Source : Dim NameDoc
'Altere o nome das variáveis em tela
Source = Screen.Item(“Caminho”).Value
NameDoc = " \ " & Screen.Item(“NameArq”).Value

OpenPDF Source, NameDoc
End sub

Private Function OpenPDF(InSource, InNameDoc)
extension = “.pdf”
unionSource = InSource & InNameDoc & extension
set execChrome = createobject(“shell.application”)
execChrome.shellexecute"chrome.exe",unionSource,"","",1
End Function
Sub Fim ()
End Sub

OBS.: JUNTE OS ESPAÇOS NA CONCATENAÇÃO DA BARRA NameDoc = " \ " & Screen.Item(“NameArq”).Value

2 Likes
#3 
Sub btnOpenPdf_Click()
	Dim sFolderPath
	Dim sFileName
	
	' Passa o foco para o botao para validar os 
	' TextBoxes de entrada
	Me.SetFocus()

	' Recebe valores da tela
	sFolderPath = Trim(Screen.Item("txtFolderPath").Value)
	sFileName = Trim(Screen.Item("txtFileName").Value)

	' Adiciona extensao se nao houver
	If (Right(LCase(sFileName), 4) <> ".pdf") Then
		sFileName = sFileName & ".pdf"
	End If
	
	Call OpenPdfFile( sFolderPath & "\" & sFileName )
End Sub	

Private Sub OpenPdfFile( sPath )
	Dim oFso
	Dim oShell
	
	sPath = Trim(sPath)
	
	Set oFso = CreateObject("Scripting.FileSystemObject")
	
	If (oFso.FileExists( sPath )) Then
    	' If (LCase(oFso.GetExtensionName(sPath)) = "pdf") Then
    		Set oShell = CreateObject("WScript.Shell")
			oShell.Run """" & sPath & """"
    	' Else
    	' 	MsgBox "O arquivo '" & sPath & _
    	'		"' não é um PDF válido.", vbExclamation  
    	' End If
    Else
		MsgBox "O arquivo '" & sPath & _
				"' não existe.", vbExclamation
	End If	
End Sub
2 Likes