Excel userform afdrukken als PDF.

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.
 
Nadeel is wel dat NumLock uitgeschakeld wordt met de gewone SendKeys.
Code:
CreateObject("WScript.Shell").SendKeys "%{1068}", True
 
Die kan je daarna direct weer aan zetten:
Code:
#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
 
Als je Irfanview hebt geïnstalleerd kan het met 2-liner:

Code:
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
 
Terug
Bovenaan Onderaan