Impression UF

Re : Impression UF

Bonjour,

D'apres l'aide, il faut parametrer l'orientation dans le driver.
Ou bien essayer d'adapter ce post : https://www.excel-downloads.com/threads/impression-userform.65861/

Re : Impression UF

re bonjour..
oups...😱
je crois bien que je n'y comprends rien.........😱

Re : Impression UF

Re,

Solution 1
Avec Me.PrintForm, il faut que tu parametres manuellement l'imprimante en paysage, mais au niveau du driver (panneau de configuration).

Solution 2
Ci-joint un exemple concret basé sur le code de MichelXLD.

Re : Impression UF

re ..
Merci à toi Catrice,
j'ai réussi à imprimer mon UF en format paysage à l'aide du code de MichelXLD.
Il s'imprime bien, en entier, mais ensuite ça imprime une seconde page, avec juste le bord droit du UF dans toute sa hauteur...
comment faire pour supprimer cette deuxième feuille....?
Merci par avance.
Paul

Re : Impression UF

Re,

Tu peux essayer de modifier le code comme ceci :

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 CommandButton1_Click()
Dim Ws As Worksheet
'Copie d'écran de la forme active
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
'Ajoute une feuille pour coller l'image de la forme
Set Ws = Sheets.Add
MonNom = ActiveSheet.Name
Ws.PageSetup.Orientation = xlLandscape
Ws.Paste
'impression centrée dans la page
With Ws.PageSetup
.PrintArea = "$A$1:" & Selection.BottomRightCell.Address
.CenterHorizontally = True
.CenterVertically = True
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Unload UserForm1
Ws.PrintOut
'Supprime la feuille temporaire
Application.DisplayAlerts = False
Sheets(MonNom).Delete
Application.DisplayAlerts = True
End Sub

Re : Impression UF

Super,...!!
ça marche....!!!
Merci à toi Catrice