Bonjour le forum
Je cherche à obtenir la même présentation de lancement d'impression sous excel 2010, mais à partir d'un menu contextuel, déjà créé via la macro suivante dans le code de la feuille:
mais je ne parviens pas à obtenir la même présentation, à savoir un aperçu s'accompagnant en particulier de la possibilité de choisir l'imprimante .
Je précise que je procède à des enrichissements avant impression, et que je les supprime après.
Enfin, comme l'utilisateur travaille en mode Application.DisplayFullScreen = true, le menu d'excel ne lui est pas accessible systématiquement, mais je souhaite lui conserver les mêmes fonctionnalités que l'impression "native" d'excel 2010.
A toutes fins utiles, je joins le fichier dans lequel sont placées les 2 (petites) macros évoquées.
Auriez-vous la solution à mon besoin ?
D'avance merci de me décoincer, je cherche partout sans succès.
DMC is in the street !
Je cherche à obtenir la même présentation de lancement d'impression sous excel 2010, mais à partir d'un menu contextuel, déjà créé via la macro suivante dans le code de la feuille:
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _
Cancel As Boolean)
Dim icBc As Object, LigFin As Single
CommandBars("Cell").Reset
CommandBars("row").Reset
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlButton, Before:=15, temporary:=True)
.ShortcutText = "Ctrl+Maj+P"
.TooltipText = "imprimer "
.BeginGroup = True
.Caption = "Imprimer "
.OnAction = "impression"
.Tag = "dnimpression"
.Visible = True
End With
End Sub
Public Sub impression()
'Application.Dialogs(xlDialogPrintPreview).Show (tentatives diverses d'appel de print out ou preview)
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
'ActiveSheet.PrintPreview
'Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Preview:=True, Collate:=True
End Sub
mais je ne parviens pas à obtenir la même présentation, à savoir un aperçu s'accompagnant en particulier de la possibilité de choisir l'imprimante .
Je précise que je procède à des enrichissements avant impression, et que je les supprime après.
Enfin, comme l'utilisateur travaille en mode Application.DisplayFullScreen = true, le menu d'excel ne lui est pas accessible systématiquement, mais je souhaite lui conserver les mêmes fonctionnalités que l'impression "native" d'excel 2010.
A toutes fins utiles, je joins le fichier dans lequel sont placées les 2 (petites) macros évoquées.
Auriez-vous la solution à mon besoin ?
D'avance merci de me décoincer, je cherche partout sans succès.
DMC is in the street !