Excel userform afdrukken als PDF.

[djutoch]

Is dit mogelijk?

 

[edmoor]

Probeer het eens

Om deze inhoud te bekijken, hebben we jouw toestemming nodig om cookies van derden te gebruiken.
Voor meer gedetailleerde informatie, zie onze cookiespagina.

Accepteer cookies van derden

 

[AHulpje]

Zo:

 

[djutoch]

Tof @AHulpje , ziet er goed uit,

 

[Warme bakkertje]

Nadeel is wel dat NumLock uitgeschakeld wordt met de gewone SendKeys.

CreateObject("WScript.Shell").SendKeys "%{1068}", True

 

[edmoor]

Die kan je daarna direct weer aan zetten:

#If Win64 Then
    Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#Else
    Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If

Sub SetNumLockOn()
    Dim NumLockState As Boolean
    Let NumLockState = CBool(GetKeyState(vbKeyNumlock) And 1)
    If Not NumLockState Then
        SendKeys "{NUMLOCK}", True
    End If
End Sub

 

[jkpieterse]

SENDKEYS zet niet op alle machines num lock uit.
Even een waarschuwing: Ik zie steeds meer bedrijven die gebruik van API functies blokkeren

 

[snb]

Als je Irfanview hebt geïnstalleerd kan het met 2-liner:

Private Sub UserForm_Click()
  c00 = "C:\Program Files\Irfanview\"
  Shell c00 & Dir(c00 & "i_view*.exe") & " /capture=3 /convert=D:\SNB_\test.pdf", 0
End Sub