Discussion :

[sweetty]

Bonjour,

Je voudrai arriver à imprimer une page définie, avec une demande de quantité d'impressions.

Malgré toutes mes tentatives, pas moyens d'imprimer une zone défini, il me sort toujours une page vierge en plus, pour ce qui est de la quantité de copie, ça marche super.
Ma zone d'impression est toujours de A1:J52

J'ai essayé qui marche très bien mais toujours deux pages (en sachant que de part et d'autre des cellules ci dessus, il n'y a rien):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub IMPRIMER()
 
Dim i As String
 
i = "i pas un nombre"
 
While (IsNumeric(i) = False Or InStr(i, ".") > 0)
i = InputBox("Combien de copies voulez-vous imprimer ?")
If i = "" Then
MsgBox "Impression annulée"
Exit Sub
End If
Wend
 
If CDbl(i) = 0 Then
MsgBox "Impression annulée"
Exit Sub
End If
 
Application.Dialogs(xlDialogPrinterSetup).Show 'Pour choisir l'imprimante
ActiveSheet.PrintOut copies:=CDbl(i)
 
End Sub

Merci par avance.

[BENNASR]

bonsoir
remplacer :

Code :

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

1
2
'Application.Dialogs(xlDialogPrinterSetup).Show 'Pour choisir l'imprimante
'ActiveSheet.PrintOut copies:=CDbl(i)

par

Code :

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

1
2
3
 Application.Dialogs(xlDialogPrinterSetup).Show 'Pour choisir l'imprimante
 ActiveSheet.PageSetup.PrintArea = ("A1:H14")
        ActiveSheet.PrintOut copies:=CDbl(i)

[Menhir]

Juste avant ton PrintOut, mets :

Code :

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

1
2
3
4
5
6
With ActiveSheet.PageSetup 
    .PrintArea = ("A1:J52")
    .Zoom = False 
    .FitToPagesTall = 1 
    .FitToPagesWide = 1 
End With

Lire ça :
https://docs.microsoft.com/fr-fr/off...fittopagestall
https://docs.microsoft.com/fr-fr/off...fittopageswide

[sweetty]

Bonjour,

Merci beaucoup, ça marche nickel. Depuis le temps que je cherchais. Merci pour les liens.