code d'impression

code d'impression - VB/VBA/VBS - Programmation

Marsh Posté le 19-04-2006 à 15:42:23    

Bonjours voila je recherche un code en vba pour acceder directement aux propriétés de l'imprimante.
Pour l'instant j'ulise :
 
CommonDialog1.Flags = cdlPDPrintSetup    
CommonDialog1.ShowPrinter
 
mais sa m'ouvre que la configuration de l'impression  je veu aller directement aux propriétés.
 
merci ;)

Reply

Marsh Posté le 19-04-2006 à 15:42:23   

Reply

Marsh Posté le 20-04-2006 à 14:04:35    

bon g trouver sa
 
Sub test()
With ActiveDocument
.PrintSettings.Printer.ShowDialog
.PrintOut
End With
End Sub
 
et donc sa m'ouvre bien la page de propriéte de l'imprimante mais lorsque je fais annuler sa imprime comme meme et donc je voudrais ajouter une condition qui ferme le programme lorsque je clique sur annuler.
quelqu'un saurait faire sa?

Reply

Marsh Posté le 20-04-2006 à 16:56:59    


    CommonDialog1.CancelError = True
     
    On Error GoTo GestErr
     
    '
    ' Ton code
    '
     
    Exit Sub
     
GestErr:
    ' On se retrouve ici quand l'impression est annulée
    MsgBox "Bye!!"


 
L'annulation de l'impression génère une erreur qu'il faut récupérer. Pour être tout à fait propre, il faut identifier le numéro de l'erreur et la traiter dans GestErr.

Reply

Marsh Posté le 21-04-2006 à 08:08:08    

Nan sa marche pas et j'utilse pas de commondialog et je suis dans une macro.
 
Sub test()
 
 With ActiveDocument
 .PrintSettings.Printer.Showdialog
   On Error GoTo GestErr
 .PrintOut
 
   End With
  Exit Sub
 GestErr:
End Sub
 
donc comment faire?

Reply

Marsh Posté le 21-04-2006 à 08:19:28    

Pour l'instant j'ulise :  
 
CommonDialog1.Flags = cdlPDPrintSetup    
CommonDialog1.ShowPrinter  


 
C'est quand même bien un contrôle commondialog!  :o  

Reply

Marsh Posté le 21-04-2006 à 08:23:15    

oué oué sa c avant que jme rende compte que sa servé a rien de faire sa (pour x raisons lol), ce code se touvait dans un userfrom , maintenant jsui dans un module.
merci comme meme

Reply

Marsh Posté le 25-04-2006 à 16:03:41    

alors voila ma macro  
 
Public Sub test()
 
 On Error GoTo ErrorHandler
 
 With ActiveDocument
 .PrintSettings.Printer.showdialog
 
If vbNo = MsgBox("Imprimer ce document ?", vbYesNo) Then
  GoTo ErrorHandler
 Else
  .PrintOut
End If
 
End With
 
ErrorHandler:
 
End Sub
 
est-ce qu'il est possible de creer une sorte de plugins qui créerait un icone dans un programm de type corel draw par example et qui exécuteré ma macro lorsque je cliquerais dessus
merci
 

Reply

Marsh Posté le 09-12-2010 à 12:08:48    

Bonjour,
 
J'ai un petit soucis avec du code vba. J'explique.
 
J'ai un document powerpoint dans lequel j'ai du texte et des images. Je souhaiterais, lorsque l'on clique sur un bouton  (définit) du powerpoint, que ça m'imprime directement un fichier word situé dans un autre dossier. Ne sachant pas si cela peut se faire directement avec les fonctions de powerpoint (pas possible avec les liens hypertexts), je pensais insérer une macro qui puisse le faire.  
Je ne m"y connais pas trop en vba, j'ai essayé de m'y mettre mais c pas facile.
 
Si quelqu'un peut m'aider...
 
Merci d'avance!
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed