Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Imprimer un userform dans une feuille

Imprimer un userform dans une feuille

2 réponses
Avatar
Florian
Bonsoir
Je désire imprimer une forme, mais celle-ci dépasse de la feuille
comment faire afin que celle-ci rentre dans la feuille
Merci
Flo riant
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Florian,

Je n'ai pas le nom de l'auteur... mais cela pourrait bien être l'idée de Michel Perron ou d'Alain Cros.

'---------------------------------
'Pour imprimer en paysage avec adaptation au format papier, dans ton module
UserForm:

'Cette section dans le haut du module :
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _
, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'Associé à to bouton d'impression:
Private Sub CommandButton1_Click()
Me.Repaint
OpenClipboard 0&
EmptyClipboard
keybd_event vbKeySnapshot, 0, 0&, 0&
CloseClipboard
DoEvents
Application.ScreenUpdating = False
Dim NewBook As String
Workbooks.Add: ActiveSheet.Paste
NewBook = ActiveWorkbook.Name
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
ActiveWindow.Visible = False
Application.ScreenUpdating = True
Windows(NewBook).SelectedSheets.PrintOut Copies:=1
Workbooks(NewBook).Close False
End Sub
'---------------------------------


Salutations!



"Florian" a écrit dans le message de news:
Bonsoir
Je désire imprimer une forme, mais celle-ci dépasse de la feuille
comment faire afin que celle-ci rentre dans la feuille
Merci
Flo riant
Avatar
Florian
Vraiment génial !!!
Je te remercie beaucoup
Flo riant

"michdenis" a écrit dans le message de news:
e8%
Bonjour Florian,

Je n'ai pas le nom de l'auteur... mais cela pourrait bien être l'idée de
Michel Perron ou d'Alain Cros.

'---------------------------------
'Pour imprimer en paysage avec adaptation au format papier, dans ton
module
UserForm:

'Cette section dans le haut du module :
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long)
As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte _
, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'Associé à to bouton d'impression:
Private Sub CommandButton1_Click()
Me.Repaint
OpenClipboard 0&
EmptyClipboard
keybd_event vbKeySnapshot, 0, 0&, 0&
CloseClipboard
DoEvents
Application.ScreenUpdating = False
Dim NewBook As String
Workbooks.Add: ActiveSheet.Paste
NewBook = ActiveWorkbook.Name
With ActiveSheet.PageSetup
.RightFooter = Me.Caption & " Le &D Page &P/&N"
.PrintGridlines = False
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With
ActiveWindow.Visible = False
Application.ScreenUpdating = True
Windows(NewBook).SelectedSheets.PrintOut Copies:=1
Workbooks(NewBook).Close False
End Sub
'---------------------------------


Salutations!



"Florian" a écrit dans le message de news:

Bonsoir
Je désire imprimer une forme, mais celle-ci dépasse de la feuille
comment faire afin que celle-ci rentre dans la feuille
Merci
Flo riant