ralph45
XLDnaute Impliqué
Bonjour le forum,
Suite à ma précédente interrogation (Gérer l'impression d'un formulaire [UserForm]), david84 m'avait très bien guidé et le code résultant suivant fonctionne à merveille. Mais...
... comme l'image générée est toujours en mémoire, je voudrais envoyer celle-ci dans un nouveau message Outlook 2010 avec en corps (body) de celui-ci l'image ayant servi à l'impression.
J'ai trouvé des posts sur le forum ou sur le Net pour des solutions quasi-similaires, mais aucune ne me convient réellement (Nota : j'ai déjà coché Microsoft Excel 14.0 Object Library).
Le top du top serait de générer le titre à partir de la cellule A2 de l'onglet "OUTLOOK" avec en destinataires les adresses e-mail contenues dans les cellules A5 à A25.
J'espère que vous pourrez m'éclairer malgré l'absence de fichier joint, car les données déjà renseignées sont à caractère extrêmement confidentiel. A+
Suite à ma précédente interrogation (Gérer l'impression d'un formulaire [UserForm]), david84 m'avait très bien guidé et le code résultant suivant fonctionne à merveille. Mais...
... comme l'image générée est toujours en mémoire, je voudrais envoyer celle-ci dans un nouveau message Outlook 2010 avec en corps (body) de celui-ci l'image ayant servi à l'impression.
J'ai trouvé des posts sur le forum ou sur le Net pour des solutions quasi-similaires, mais aucune ne me convient réellement (Nota : j'ai déjà coché Microsoft Excel 14.0 Object Library).
Le top du top serait de générer le titre à partir de la cellule A2 de l'onglet "OUTLOOK" avec en destinataires les adresses e-mail contenues dans les cellules A5 à A25.
J'espère que vous pourrez m'éclairer malgré l'absence de fichier joint, car les données déjà renseignées sont à caractère extrêmement confidentiel. A+
Code:
Option Explicit
Private Declare Sub keybd_event Lib "user32" ( _
ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Sub UF1_PRINT_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Ws As Worksheet
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Set Ws = Sheets.Add
Ws.PageSetup.Orientation = xlLandscape
Ws.Paste
With Ws
.PageSetup.CenterHorizontally = True
.PageSetup.CenterVertically = True
.PrintOut
End With
Unload Me
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Delete
ActiveSheet.Delete
End Sub
Dernière édition: