macro impression

[chinel]

Salut tout le monde!

j'ai un problème car je n'arrive pas à sélectionner mes cellules de A4 à M45
il m'imprime toute ma feuille

voici mon code :
sub imprimer ()
Range("A4:M45").Select
rep = InputBox("nombre d'impression", , 1)
If Not (IsNumeric(rep)) Or rep = "" Or rep < 1 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=rep
end sub

merci à tous !

 

[CB60]

Re : macro impression

Bonsoir
Je pense que tu devrais mttre dans ta macro cela:

sub imprimer ()
ActiveSheet.PageSetup.PrintArea = "$A$4:$M$45"
rep = InputBox("nombre d'impression", , 1)
If Not (IsNumeric(rep)) Or rep = "" Or rep < 1 Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut Copies:=rep
end sub

 

[jeanpierre]

Re : macro impression

Bonsoir chinel,

essaie plutôt :

Sub imprimer()

rep = InputBox("nombre d'impression", , 1)
If Not (IsNumeric(rep)) Or rep = "" Or rep < 1 Then Exit Sub
Range("A4:M45").Select
With Selection
.PrintOut Copies:=rep
End With
End Sub

Tu nous dis.

Bonne soirée.

Jean-Pierre

Edit : Bonsoir Bruno, PrintArea bien sûr.

 

[chinel]

Re : macro impression

CB60 merci de ton aide !

 

[chinel]

Re : macro impression

Encore et encore merci JeanPierre ton code fonctionne bien !

 

[jeanpierre]

Re : macro impression

Re chinel et Bruno,

Ce n'est pas mon code, mais le tien que j'ai un tant soit peu modifié.

Le principal c'est que cela fonctionne.

 

[CB60]

Re : macro impression

Re
Bonsoir JP, ton code (même si ce n'est pas le tien) ça fonctionne.
Il aura plusieurs choix!

 

[myDearFriend!]

Re : macro impression

Bonsoir chinel, CB60, jeanpierre,

Un peu tardivement, je me permets d'ajouter une version supplémentaire :

[COLOR=NAVY]Sub[/COLOR] imprimer()
[COLOR=NAVY]Dim[/COLOR] Rep [COLOR=NAVY]As Integer[/COLOR]
    Rep = Application.InputBox(Prompt:="Nombre de copies", Title:="Impression", [COLOR=NAVY]Type[/COLOR]:=1)
    [COLOR=NAVY]If[/COLOR] Rep > 0 [COLOR=NAVY]Then[/COLOR] Range("A4:M45").PrintOut Copies:=Rep
[COLOR=NAVY]End Sub[/COLOR]

Cordialement,

 

[kromitou]

Re : macro impression

Private Sub CommandButton3_Click()
Sheets("Bureau de Controle").Select
Application.ActivePrinter = _
"\\srvxxxx.xxxxx.local\RICOH Aficio 1060 RPCS sur Nexx:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\srvcompobat.compobat.local\RICOH Aficio 1060 RPCS sur Nexx:", Collate:= _
True
End Sub

Voila ce p'tit code me permet d'imprimer sur l'imprimante de mon serveur... donc à priori ça fonctionne...mais comment choisir le Bac N°3 ????

Merci d'avance si quelqu'un à une p'tite réponse...