Dear Rekan2 Sekalian,
Mohon dibantu untuk menampilkan FILE PDF pada TextBox.
Mohon dibantu scriptnya, yang saya punya script untuk menampilkan gambar
berikut:
Dim EmpFound As Range
Dim fPath As String
'MENAMPILKAN GAMBAR
With Range("Tampil_Data")
Set EmpFound = .Find(TextBox3.Value)
On Error Resume Next
If EmpFound Is Nothing Then
Image1.Picture = LoadPicture(fPath & "nopic.gif")
Else
With EmpFound
'Look in the directory where this workbook is located.
fPath = ThisWorkbook.Path & "\"
On Error Resume Next
'If a matching picture is found then display it.
Image1.Picture = LoadPicture(fPath & "\" & TextBox2.Value &
".jpg")
'If No picture found then display the default picture.
If Err = 0 Then Exit Sub
Image1.Picture = LoadPicture(fPath & "nopic.gif")
End With
End If
End With
Set EmpFound = Nothing
With ComboBox34
If lstDT.ListIndex <> -1 Then
TextBox2.Text = lstDT.Text
.Text = lstDT.Value
Else
TextBox2.Text = vbNullString
.Text = vbNullString
.ListIndex = -1
.BackColor = vbWhite
End If
End With
Kiranya Bisa Dibantu script untuk menampilkan File PDF ke TextBox
REgards,
Roni
