Impression sur imprimante a reçu

noviceAG

XLDnaute Impliqué

• 1 Avril 2010

• #2

Re : Impression sur imprimante a reçu

Bonsoir campeur, le Forum,

J'ai retrouvé ce code dans mes archives qu'il te faudra certainement adapter à tes besoins réels :

Zone d'impression variable

Private Sub ZonImpVar_Click()
'Merci à Philipp et et Kim
Dim DerLig As Integer
Dim DerCol As Integer
DerLig = Range("B65536").End(xlUp).Row
DerCol = Range("IV2").End(xlToLeft).Column
ActiveSheet.PageSetup.PrintArea = Range(Cells(8, 13), Cells(DerLig, DerCol)).Address 'Ligne 8 Colonne M
ActiveWindow.View = xlPageBreakPreview
'Si tu veux que le macro imprime directement, enlène le signe devant la ligne ci-dessous
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

Vote positif 0 Vote négatif

C

campeur

XLDnaute Nouveau

• 1 Avril 2010

• #3

Re : Impression sur imprimante a reçu

Bonjour noviceAG, le forum,

Merci pour la réponce rapide

J'ai essayer votre formule, elle fonctionne tres bien , mais elle ne s'arrète pas a la derniere ligne pleine, ca na rien changer

une petite question comment je fait pour ramener ma page sur le Zoom original

merci @+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 1 Avril 2010

• #4

Re : Impression sur imprimante a reçu

Hello,

Après tout ce que j'ai pu voir, apparemment pas possible (sous réserve).

Je ne sais pas si combiné à ton code ça jouera, mais ce que tu peux faire, c'est d'abord sélectionner (avec la souris) la plage que tu souhaîtes imprimer et l'imprimer ensuite...

Si tu es d'accord, tu choutes les lignes

Code:

[COLOR="Red"][B]ActiveSheet.PageSetup.PrintAera = Range("X1:AA" & Range("X65536").End (xlUp).Row).Address[/B][/COLOR]

et le

[COLOR="red"][B]Activesheet.PrintOut[/B][/COLOR]

Puis tu mets juste cette ligne à la place

Code:

    [COLOR="Green"][B]Selection.PrintOut Copies:=1, Collate:=True[/B][/COLOR]

Donc tu sélectionnes avec ta souris la plage que tu veux imprimer.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 1 Avril 2010

• #5

Re : Impression sur imprimante a reçu

Re, bonsoir Hulk,
je viens de trouver ceci, mais mes connaissances ne me permettent pas de t'aider davantage. Désolé.

Sub ZoneImprimVariable() 'toutes les 52 lignes (à régler)
Dim N As Long
Dim I As Integer, Rep As Integer
With ActiveSheet
With ActiveSheet.PageSetup
.PrintTitleRows = "$2:$5"
End With
N = .Range("b65536").End(xlUp).Row
.ResetAllPageBreaks 'efface sauts de pages existants
.PageSetup.PrintArea = "A2:h" & N
For I = 1 To N / 52
.HPageBreaks.Add Before:=Rows(I * 52 + 2)
Next I
Rep = MsgBox("On imprime ?", vbYesNo + vbCritical + vbDefaultButton2, "Impression")
If Rep = vbYes Then
.PrintOut
End If
End With
End Sub

 

Vote positif 0 Vote négatif

C

campeur

XLDnaute Nouveau

• 2 Avril 2010

• #6

Re : Impression sur imprimante a reçu

Rebonjour
j'ai essayer vos recommandation mais rien a faire l'imprimante ne s'arrete pas a la dernière ligne pleine
je Vous remerci encore une fois pour avoir bien voulu m'aider
Merci @+

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 2 Avril 2010

• #7

Re : Impression sur imprimante a reçu

ne peux tu mettre un petit fichier en exemple ?

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 2 Avril 2010

• #8

Re : Impression sur imprimante a reçu

Je viens encore de trouver ceci :

Zone variable dans Excel
Pour donner un nom à une plage de cellules sur la feuille sélectionner :

If TypeName(Selection) = "Range" Then
Selection.Name = Selection.Parent.Name & "!" & "LeNomDeLaPlageNommé"
End If

'Ou plus prudent :

Sub Nommer()
§ If TypeName(Selection) = "Range" Then _
§ ActiveWorkbook.Names.Add Name:="FENGTS", RefersTo:=Selection
End Sub

ActiveWorkbook.Names.Add Name:="FENGTS", RefersTo:=Selection
'crée un nom défini au niveau du Workbook


Syntaxe pour une sélection de cellules variable
Dim i As Integer
i = 3
Range("A" & i & ":M" & i).Select

En espérant que ca te sera utile.

 

Vote positif 0 Vote négatif

C

campeur

XLDnaute Nouveau

• 2 Avril 2010

• #9

Re : Impression sur imprimante a reçu

Bonjour

Voici un petit exemple de ce que je veux

 

Vote positif 0 Vote négatif

C

campeur

XLDnaute Nouveau

• 2 Avril 2010

• #10

Re : Impression sur imprimante a reçu

Oup mon fichier n'est pas la

 

Vote positif 0 Vote négatif

C

campeur

XLDnaute Nouveau

• 2 Avril 2010

• #11

Re : Impression sur imprimante a reçu

Bon cette fois je crois que ca va aller

 

Pièces jointes

• ImprimeReçu.xlsm

  16.6 KB · Affichages: 71

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 2 Avril 2010

• #12

Re : Impression sur imprimante a reçu

Bonjour campeur, le Forum,
Je vois que ton fichier est en 2007 et je ne peux l'ouvrir.
Je passe la main.
Bonne continuation.

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 2 Avril 2010

• #13

Re : Impression sur imprimante a reçu

noviceAG à dit:

Bonsoir campeur, le Forum,

Private Sub ZonImpVar_Click()
'Merci à Philipp et et Kim
Dim DerLig As Integer
Dim DerCol As Integer
DerLig = Range("B65536").End(xlUp).Row
DerCol = Range("IV2").End(xlToLeft).Column
ActiveSheet.PageSetup.PrintArea = Range(Cells(8, 13), Cells(DerLig, DerCol)).Address 'Ligne 8 Colonne M
ActiveWindow.View = xlPageBreakPreview
'Si tu veux que le macro imprime directement, enlène le signe devant la ligne ci-dessous
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Cliquez pour agrandir...

Je viens de refaire des essais (office 2003) en jonglant avec ligne-colonne, la zone s'adapte exactement à la demande.
Au plaisir

 

Vote positif 0 Vote négatif

C

campeur

XLDnaute Nouveau

• 3 Avril 2010

• #14

Re : Impression sur imprimante a reçu

Bonjour le Forum
j'ai résoulu mon problème, il falais que j'enleve le Userforme pour le temps d'imprimer
et fair revenir le Userform seulment après avoir fini d'imprimer
Merci @+

 

Vote positif 0 Vote négatif