Impression userform

Bonjour Reno,

Voici une procédure parue ici sous la plus de Michel Perron :


En tête du module de ton UserForm: 'La plus complète

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _
, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function EmptyClipboard Lib "user32" () As Long

' La procédure d'impression de l'UserForm:
Private Sub PrintUserForm()
Dim BookName As String

Application.CutCopyMode = False
EmptyClipboard
Me.Repaint '* Relâche le bouton avant l'impression
keybd_event vbKeySnapshot, 0, 0&, 0&
Application.ScreenUpdating = False
Workbooks.Add
BookName = ActiveWorkbook.Name
ActiveWindow.Visible = False
Workbooks(BookName).Sheets(1).Paste
With Workbooks(BookName).Sheets(1).PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlPortrait '* Vertical
'.Orientation = xlLandscape '* Horizontal
.PaperSize = xlPaperA4
.Zoom = 100 '* Mettre en remarque si impression ajustée
' * Ajuste l'impression (largeur & hauteur)
'.Zoom = False
'.FitToPagesWide = 1
'.FitToPagesTall = 1
End With
Application.ScreenUpdating = True
Windows(BookName).SelectedSheets.PrintOut Copies:=1
Workbooks(BookName).Close False
End Sub


Pour ce qui est de ton ScrollBar, il n'y a pas de miracle ..... à part de redimensionner ton formulaire à la dimension
maximale de l'écran avant de lancer la procédure !


Salutations!



"reno" <reno83400@yahoo.fr> a écrit dans le message de news:0ddc01c36188$10262e10$a301280a@phx.gbl...
Bonjour tout le monde!


existe t il une macro qui permette d imprimer le contenu d
une userform (texte ou image)

merci


reno