Comment empêcher l'affichage de "impression de...Résolu

Question

Bonjour, 
 
Toujours en rapport à mon module de convertion en PDF que voici :

Sub ToPdf()Dim pdfjob As ObjectDim DefaultPrinterchemsave = ThisWorkbook.Sheets("MATRICE").Range("A111").Value 'tu peux changer la feuille et la cellule'If chemsave = "" Then Exit SubSet pdfjob = CreateObject("PDFCreator.clsPDFCreator")'NomExcel = ThisWorkbook.Name'NomPdf = Left(NomExcel, Len(NomExcel) - 4) & ".pdf"With pdfjobIf .cstart("/NoProcessingAtStartup") = False ThenMsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"Exit SubEnd If.cOption("UseAutosave") = 1.cOption("UseAutosaveDirectory") = 1.cOption("AutosaveDirectory") = chemsave 'chemin destination.cOption("AutosaveFilename") = feuil & ".pdf" 'nom de la feuille.cOption("AutosaveFormat") = 0.cClearCacheEnd WithActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator" 'on imprime la feuille active'ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"Do Until pdfjob.cCountOfPrintjobs = 1DoEventsLooppdfjob.cPrinterStop = FalseDo Until pdfjob.cCountOfPrintjobs = 0 'ligne modifier remettre 0 si problemeDoEventsLoopWith pdfjob.cDefaultprinter = DefaultPrinter.cClearCache.cCloseEnd WithSet pdfjob = Nothing'Dim Ret As Variant'Ret = ShellExecute(hwnd, "open", chemsave & To_PDF.ComboBox1.Value & ".pdf", "", vbNullString, 1) 'ouverture du pdf'MsgBox "Votre PDF se trouve à cet emplacement: " & chemsave, vbInformation, "Convertir en PDF"End Sub

J'aurais voulu savoir s'il était possible d'empêcher l'affichage du message "impression de", il apparait a chaque conversion, il n'y a pas besoin de validation, mais j'aimerais ne plus l'avoir, je voudrais que se soit uniquement ma barre de progression qui donne l'avancement, la voici (grace à Jordane45)

Private Sub Cmd_PDF_Click()    Dim i As Byte    Dim nbToGo As Integer        nbToGo = ListBox1.ListCount - 1    ProgressBar.ProgressBar1.Max = 100    ProgressBar.Show    'boucle sur les éléments de la ListBox     For i = 0 To nbToGo        If ListBox1.Selected(i) = True Then          feuil = ListBox1.List(i) 'nom de la feuille          Sheets(feuil).Select          ' Maj ProgressBar          ValP = Int((i / nbToGo) * 100)          ProgressBar.ProgressBar1.Value = ValP          ToPdf       End If    Next    End Sub

Merci à tous pour votre aide,

Bonne journée à tous et bon WE

Christian
--

pijaku · Answer

Bonjour,

As tu essayé de mettre le DisplayAlerts sur False ?
Cf : http://msdn.microsoft.com/fr-fr/library/office/ff839782%28v=office.15%29.aspx
Si non, dans la procédure Topdf :
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator" 'on imprime la feuille active
'ThisWorkbook.PrintOut Copies:=1, ActivePrinter:="PDFCreator"

cco86260 · Answer

Bonjour pijaku,

J'ai essayer avec le displayAlert, mais rien, le message qui s'affiche n'as pas besoin de validation, il dis juste ce qu'il fait... du genre :

impression de bla bla, ensuite il passe a la feuille 2 impression de bla bla... tu vois ce que je veux dire ?

Merci de me consacrer du temps

Christian 
 
--

pijaku · Answer

Bonjour,

Essaie ceci :

Dans un Module :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long
Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Public Function fncScreenUpdating(State As Boolean, Optional Window_hWnd As Long = 0)
Const WM_SETREDRAW = &HB
Const WM_PAINT = &HF
If Window_hWnd = 0 Then
    Window_hWnd = GetDesktopWindow()
Else
    If IsWindow(hwnd:=Window_hWnd) = False Then
        Exit Function
    End If
End If

If State = True Then
    Call SendMessage(hwnd:=Window_hWnd, wMsg:=WM_SETREDRAW, wParam:=1, lParam:=0)
    Call InvalidateRect(hwnd:=Window_hWnd, lpRect:=0, bErase:=True)
    Call UpdateWindow(hwnd:=Window_hWnd)
Else
    Call SendMessage(hwnd:=Window_hWnd, wMsg:=WM_SETREDRAW, wParam:=0, lParam:=0)
End If
End Function 

L'appel, dans ton code :
fncScreenUpdating State:=False
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=32766, Copies:=1, ActivePrinter:="PDFCreator"
fncScreenUpdating State:=True

cco86260 · Answer

Re,

Alors là je suis bluffé...

on s'approche du but, ça fonctionne... on la voit toujours mais plus rapidement... pas trop genant...

Je pense que quelques modif et c'est bon... mais là c'est encore moins de mon ressort...

Merci de consacrer du temps pour moi, c'est sympas... 
 
--

cs_Le Pivert · Answer

Bonjour Christian,

Le problème vient de PDFCreator à mon avis. Essaie d'ouvrir PDFCreator tu vas dans Imprimante -Options-Paramètres Generaux2 et tu décoches  Afficher une animation durant le traitement. Par contre cela tu ne peux pas le faire par code. Il faut que tu le fasses manuellement sur toutes les machines, je pense!

cdtl

cco86260 · Answer

Bonjour cs_LePivert,

Merci pour ta réponse, je vais essayer ça de suite, et reviens donner le résultat...

A toute,

Christian 
 
--

Comment empêcher l'affichage de "impression de...

6 réponses

Votre réponse

Discussions similaires