Impression UF

[paul87]

Bonjour à tous, Bonjour le Forum,
J'ai besoin d'imprimer un UF...
donc

Me.PrintForm

ça ça marche,...mais j'ai besoin d'une impression en format payage..car je n'ai pas la totalité du UF à l'impression, il est coupé.....et je ne peux modifier sa forme ou présentation.
comment faire..?
Merci par avance.

 

[Catrice]

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/

 

[paul87]

Re : Impression UF

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

 

[Catrice]

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.

 

[paul87]

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

 

[Catrice]

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

 

[paul87]

Re : Impression UF

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