'jai mis ça dans un module Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = &H2C 'Public Const KEYEVENTF_KEYUP = H2C Public Const VK_MENU = &H12 Public Const VK_TAB = &H9 Public Const VK_V = &H56 Public Const VK_CONTROL = &HA2 'Puis ça dans le bouton à programmer Dim logiciel keybd_event VK_SNAPSHOT, 1, 0, 0 logiciel = Shell("C:\WINNT\system32\mspaint.exe", vbNormalFocus) Application.Wait Now + TimeValue("00:00:02") SendKeys "^v" SendKeys "^s" SendKeys "usf3" Application.Wait Now + TimeValue("00:00:01") SendKeys ("{ENTER}") SendKeys "%{F4}"
'tu met ca dans un module Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = &H2C 'et la dans un bouton de ton userfomr que tu vx imprimer Private Sub CommandButton2_Click() keybd_event VK_SNAPSHOT, 0, 0, 0 Workbooks.Add Application.Wait Now + TimeValue("00:00:01") ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False ActiveSheet.Range("A1").Select ActiveSheet.PageSetup.Orientation = xlLandscape ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWorkbook.Close False End Sub
Sub Imprimer() Dim stPrinter As String stPrinter = Application.ActivePrinter Application.ActivePrinter = "PDFCreator" UserForm1.PrintForm Application.ActivePrinter = stPrinter End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'dans un module Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = &H2C 'Public Const KEYEVENTF_KEYUP = H2C Public Const VK_MENU = &H12 Public Const VK_TAB = &H9 Public Const VK_V = &H56 Public Const VK_CONTROL = &HA2 'dans la programmation du bouton Private Sub CommandButton4_Click() keybd_event VK_SNAPSHOT, 1, 0, 0 logiciel = Shell("C:\WINNT\system32\mspaint.exe", vbNormalFocus) Application.Wait Now + TimeValue("00:00:02") SendKeys "^v" Application.Save "C:\Documents and Settings\jrv327\Bureau\usf3.jpg" End Sub