Discussion :

[dénérion]

Bonjour,

je souhaite "assemblé" l'impression d'une feuille de calcul excel avec l'apparence d'une page parmie une mulptige d'une userform.

je poste mon code qui me permet d'inprimer ce que je souhaite mais il me l'imprime sur deux page différente, comment faire pour qu'il assemble les deux sur une seule page?

d'avance merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub btnimp_Click()
 
UserForm1.MultiPage1.Value = 4
UserForm1.PrintForm
UserForm1.MultiPage1.Value = 0
 
 
Sheets("fenêtre").Activate
Range("A1:J33").Select
Selection.PrintOut Copies:=1, Collate:=True
Range("a1").Select
Sheets("feuil1").Activate
 
End Sub

[sabzzz]

bonjour dénérion,

pour cette exemple j'ai supposé que la page active est celle dont tu veut ajouter l'image du userform, il faut adapter la cellule ou sera mit l'image.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
    Me.MultiPage1.Value = 4
    Me.Repaint
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
    With ActiveSheet
     .Paste
       p = .Shapes.Count
     .Shapes(p).Top = .Range("B2").Top ' àdapter l'adresse de cellule
     .Shapes(p).Left = .Range("B2").Left
     .Shapes(p).Height = 200
     .Shapes(p).Width = 300
    End With
End Sub

[dénérion]

Bonjour isabelle et merci BEAUCOUP

une derniére chose avant de vous dire que vous étes formidable, si je peut me permettre comment puis je suprimer l'image avant la fin de la macro "impression".

MERCI merci merci merci

[sabzzz]

bonjour dénérion,

avec,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes(p).Delete

au plaisir

[dénérion]

Encore mille merci....