J'ai cree un UserForm qui s'ouvre apres une action sur un=20
bouton ds une feuille excel. Ds ce UserForm j'inscriot des=20
valeurs ds des TextBox. Sur ce UserForm j'ai inclu un=20
bouton permettant de pourvoir l'imprimer apres saisie. Le=20
probleme que je rencontre c'est que ce UserBox fait plus=20
de 20cm de long et lorsqure je lance mon impression=20
(utilisation de la Fonction PrintForm) celle-ci m'enleve=20
des informations. Vous allez me dire reduit ton impression=20
pour que tout apparesse hors le probleme c'est que je=20
voudrait imprimer ce UserForm sur une page A4 complette.
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
Michel Pierron
Bonjour Pierre77; Impossible de paramètrer quoi que ce soit avec PrinForm. 'Pour imprimer en paysage avec adaptation au format papier, dans ton module UserForm: 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
MP
"Pierre77" a écrit dans le message de news:4c7801c402a7$9c29b6f0$ Bonjour à tous
J'ai cree un UserForm qui s'ouvre apres une action sur un bouton ds une feuille excel. Ds ce UserForm j'inscriot des valeurs ds des TextBox. Sur ce UserForm j'ai inclu un bouton permettant de pourvoir l'imprimer apres saisie. Le probleme que je rencontre c'est que ce UserBox fait plus de 20cm de long et lorsqure je lance mon impression (utilisation de la Fonction PrintForm) celle-ci m'enleve des informations. Vous allez me dire reduit ton impression pour que tout apparesse hors le probleme c'est que je voudrait imprimer ce UserForm sur une page A4 complette.
Auriez vous une solution à mon probleme?
Merci à tous pour vos reponces Pierre
Bonjour Pierre77;
Impossible de paramètrer quoi que ce soit avec PrinForm.
'Pour imprimer en paysage avec adaptation au format papier, dans ton module
UserForm:
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
MP
"Pierre77" <bpeyot@wanadoo.fr> a écrit dans le message de
news:4c7801c402a7$9c29b6f0$a601280a@phx.gbl...
Bonjour à tous
J'ai cree un UserForm qui s'ouvre apres une action sur un
bouton ds une feuille excel. Ds ce UserForm j'inscriot des
valeurs ds des TextBox. Sur ce UserForm j'ai inclu un
bouton permettant de pourvoir l'imprimer apres saisie. Le
probleme que je rencontre c'est que ce UserBox fait plus
de 20cm de long et lorsqure je lance mon impression
(utilisation de la Fonction PrintForm) celle-ci m'enleve
des informations. Vous allez me dire reduit ton impression
pour que tout apparesse hors le probleme c'est que je
voudrait imprimer ce UserForm sur une page A4 complette.
Bonjour Pierre77; Impossible de paramètrer quoi que ce soit avec PrinForm. 'Pour imprimer en paysage avec adaptation au format papier, dans ton module UserForm: 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
MP
"Pierre77" a écrit dans le message de news:4c7801c402a7$9c29b6f0$ Bonjour à tous
J'ai cree un UserForm qui s'ouvre apres une action sur un bouton ds une feuille excel. Ds ce UserForm j'inscriot des valeurs ds des TextBox. Sur ce UserForm j'ai inclu un bouton permettant de pourvoir l'imprimer apres saisie. Le probleme que je rencontre c'est que ce UserBox fait plus de 20cm de long et lorsqure je lance mon impression (utilisation de la Fonction PrintForm) celle-ci m'enleve des informations. Vous allez me dire reduit ton impression pour que tout apparesse hors le probleme c'est que je voudrait imprimer ce UserForm sur une page A4 complette.
