Is het mogelijk om een pdf formulier in een userform te tonen?

Status
Niet open voor verdere reacties.
H

hellboy01

Gebruiker
Lid geworden
18 jun 2006
Berichten
333
Best forum, Is het mogelijk om een pdf formulier in een userform te tonen?
 
Ja dat is mogelijk met een Webbrowser element in de userform.
En een stukje code zoals:
Code: 
pdffile = ThisWorkbook.Path & "\PDFfiles" & "\" & TextBox1.value
WB_01.Navigate (pdffile)
Waar je in de textbox 1 de naam van de PDF plaatst die je wenst te bekijken.
Edit: WB_01 staat voor het webbrowser element.
 
Laatst bewerkt:
Hi gast0660, ik krijg de melding "object required"
mis ik iets?


Code: 
Private Sub CommandButton1_Click()

'pdffile = ThisWorkbook.Path & "\PDFfiles" & "\" & TextBox1.Value
pdffile = ThisWorkbook.Path & "D:\Project ROBBIE\Test\Factuur 1245 29-3-2017.pdf"
WB_01.Navigate (pdffile)
End Sub
 
Het lijkt mij dat je het webbrowser element niet de naam WB_01 hebt gegeven bij de eigenschappen
 
Mooi zo:thumb:
Volgens mij is het rode gedeelte niet nodig.
pdffile = ThisWorkbook.Path & "D:\Project ROBBIE\Test\Factuur 1245 29-3-2017.pdf"
Klik om te vergroten...
Suc6
 
Hi gast0660, even off topic, maar kun jij mij uitleggen wat er hier gebeurt in bijgevoegde code. Wat het doet is een listbox inhoud naar een cel bereik wegschrijven. Alleen de code is mij niet echt duidelijk. Ook maar van het interweb geleend ;-), ben er al een week naar aan het staren.

Code: 
Private Sub CommandButton1_Click()
Dim Litem As Long, LbRows As Long, LbCols As Long
 Dim bu As Boolean
 Dim Lbloop As Long, Lbcopy As Long
  
 LbRows = ListBox2.ListCount - 1
 LbCols = ListBox2.ColumnCount - 1
   
    For Litem = 0 To LbRows
    If ListBox2.Selected(Litem) = True Then
          bu = True
          Exit For
    End If
    Next

    If bu = True Then
    With Sheets("SelectedData").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
      
            For Litem = 0 To LbRows
                If ListBox2.Selected(Litem) = True Then 'Row selected
                  'Increment variable for row transfer range
                  Lbcopy = Lbcopy + 1
            For Lbloop = 0 To LbCols
                       'Transfer selected row to relevant row of transfer range
            .Cells(Lbcopy, Lbloop + 1) = ListBox2.List(Litem, Lbloop)
                       
           Next Lbloop
                End If
            Next
            For m = 0 To LbCols
                With Sheets("SelectedData").Cells(Rows.Count, 1).End(xlUp).Offset(0, m).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = 23
        End With
Next
        End With
        
    Else
         MsgBox "Nothing chosen", vbCritical
    End If
MsgBox "The Selected Data Are Copied.", vbInformation
Sheets("SelectedData").Select
End Sub
 
Ben niet zo goed in uitleggen.
Ik heb wat uitleg bij de code geschreven.
Als de code niet doet wat je wilt, post een vb bestandje met het gewenste resultaat.
Code: 
Private Sub CommandButton1_Click()
Dim Litem As Long, LbRows As Long, LbCols As Long 'variabelen declareren
 Dim bu As Boolean 'variabelen declareren
 Dim Lbloop As Long, Lbcopy As Long 'variabelen declareren
  
 LbRows = ListBox2.ListCount - 1 'reset
 LbCols = ListBox2.ColumnCount - 1 'reset (lbRows en LbCols zijn gegeven namen vrij te kiezen)
   
    For Litem = 0 To LbRows 'van 0 tot het aantal rijen (Litem is een gegeven naam,vrij te kiezen)
    If ListBox2.Selected(Litem) = True Then 'als je iets in de listbox hebt gekozen
          bu = True 'de variable boolean bu is waar (bu is een gegeven naam,vrij te kiezen)
          Exit For 'verlaat de For loop
    End If
    Next

    If bu = True Then
    With Sheets("SelectedData").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) 'ga naar de laatst gebruikte rij in kolom A  +1
      
            For Litem = 0 To LbRows
                If ListBox2.Selected(Litem) = True Then 'Row selected
                  'Increment variable for row transfer range
                  Lbcopy = Lbcopy + 1
            For Lbloop = 0 To LbCols
                       'Transfer selected row to relevant row of transfer range
            .Cells(Lbcopy, Lbloop + 1) = ListBox2.List(Litem, Lbloop)
                       
           Next Lbloop
                End If
            Next
            For m = 0 To LbCols
                With Sheets("SelectedData").Cells(Rows.Count, 1).End(xlUp).Offset(0, m).Borders(xlEdgeBottom) 'onderrand van de cellen van alle gebruikte kolommen in de laatst gebruikte rij
                
        .LineStyle = xlContinuous 'doorlopende rand
        .Weight = xlMedium ' medium dikte van de rand
        .ColorIndex = 23 'kleur van de rand (23 is een bepaald kleur blauw)
        End With
Next
        End With
        
    Else
         MsgBox "Nothing chosen", vbCritical 'popup als je niets hebt gekozen
    End If
MsgBox "The Selected Data Are Copied.", vbInformation 'popup als alles succesvol is verlopen
Sheets("SelectedData").Select 'selecteer het blad (is overbodig)
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan