Bonjours Voila je voudrais savoir comment faire pour creer en vb un nouvelle icone (une sorte de ToolBar) dans CorelDraw 12 qui arrait comme fonction d'aller directement dans les propriétes de l'imprimante et ensuite imprimerait le document.
Merci.

As tu résolu ton problème? j'ai le même sauf que c'est un VBS que veux lancer.
Merciii

 
 
Salut oué j'ai trouvé commen faire voila le code:
 
 
Public Sub Installation_de_la_barre()
 
CommandBars.Add "lancement en gravure", cuiBarTop, False    'crée la toolbar  
 
CommandBars.Item("lancement en gravure" ).Visible = True
 
 With CommandBars.Item("lancement en gravure" ).Controls.AddCustomButton ("Macros", "gravure.Module.lancement" )
 
    .Caption = "Print" 'crée le bouton avec les propriétés adéquates
    .Visible = True
    .SetCustomIcon ("C:\Program Files\Corel\Corel Graphics 12\Draw\GMS\laser.ico" ) ' chemin d’accès de son propre icône.
    .ToolTipText = "envoie en gravure"
 
 End With
End Sub
 
 
Sub lancement()
'macro qui permet d'ouvrir directement les propriétés de l'imprimante pour ensuite imprimer le document.
 
On Error GoTo ErrorHandler 'renvoie à ErrorHandler s'il n'y a pas de document ouvert.
 
 
x = "L-Solution" ' nom de l’imprimante laser
' Faire en sorte que l’imprimante laser "L-Solution" soit celle par défaut    
ActiveDocument.PrintSettings.SelectPrinter (x)  
 
 
 With ActiveDocument  
   .PrintSettings.Printer.showdialog 'ouvre la boite de dialogue des propriétés de l'imprimante.
 
   If vbNo = MsgBox("Lancer en gravure ce document ?", vbYesNo) Then 'demande confirmation pour l'envoie en gravure.
   GoTo ErrorHandler 'reponse "annuler" revoie a ErrorHandler
   Else
   .PrintOut 'réponse "ok" et lance la gravure
   End If
 
  End With
 ErrorHandler: 'arrêt de la macro lorsqu'il n'y pas de document ouvert ou si la réponse est "annuler"
End Sub