Un plus pour l'impression

[tactic6]

Bonsoir le forum et tous les autres
Le code ci dessous me permet de choisir le nombre de feuille à imprimer puis incrémente un compteur situé en G12

Sub Imprimer()
rep = InputBox("nombre d'impression", , 1)
If Not (IsNumeric(rep)) Or rep = "" Or rep < 1 Then Exit Sub
Range("B9:G67").Select
With Selection
.PrintOut Copies:=rep
End With
Dim Table() As String
Dim num As Integer  'definition du type de la variable
Application.DisplayAlerts = False 'deconnection des messages d'alertes
num = Sheets("Fiche Inter").Range("G12").Value
Sheets("Fiche Inter").Range("G12").Value = num + 1
End Sub

Serait il possible de modifier ce code pour qu'il me demande en plus combien de feuilles différentes je dois imprimer (G12 différent)
par exemple
mon compteur actuel est à 100 et j'aimerais imprimer jusqu'à 110 mais en deux exemplaires

Merci

 

[pierrejean]

Re : Un plus pour l'impression

bonjour tactic6

A tester:

Sub Imprimer()
[COLOR=blue]rep1=InputBox("nombre de documents", , 1)[/COLOR]
[COLOR=blue][COLOR=blue]If Not (IsNumeric(rep1)) Or rep1 = "" Or rep1 < 1 Then Exit Sub[/COLOR]
[/COLOR]rep = InputBox("nombre d'impression [COLOR=blue]par document[/COLOR]", , 1)
If Not (IsNumeric(rep)) Or rep = "" Or rep < 1 Then Exit Sub
[COLOR=blue]for n=1 to rep1[/COLOR]
Range("B9:G67").Select
With Selection
.PrintOut Copies:=rep
End With
Dim Table() As String
Dim num As Integer  'definition du type de la variable
Application.DisplayAlerts = False 'deconnection des messages d'alertes
num = Sheets("Fiche Inter").Range("G12").Value
Sheets("Fiche Inter").Range("G12").Value = num + 1
[COLOR=blue]next n[/COLOR]
End Sub

 

[tactic6]

Re : Un plus pour l'impression

Merci je vais de ce pas le tester

 

[tactic6]

Re : Un plus pour l'impression

Re
Tout simplement super
un grand merci à toi pierrejean
tres bonne soirée à tous

 

[tactic6]

Re : Un plus pour l'impression

Bonjour tout le monde, le forum et tous les autres

serait il possible que les feuilles imprimées par document après la une s'imprime avec DUPLICATA en travers et en gris clair ou en rose
Merci

 

[tactic6]

Re : Un plus pour l'impression

Re tout le monde
ce bout de code permet de faire une partie du travail
j'aimerai que ce code s'execute à partir de chaque 2° impression de document
est-ce possible ??

Sub Duplicata()

    ActiveSheet.Shapes.AddTextEffect _
        (msoTextEffect1, "D U P L IC A T A", _
        "Georgia", 36#, msoFalse, _
        msoFalse, 40, 300).Select
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1
    Selection.ShapeRange.Fill.Transparency = 0.5
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.IncrementRotation -26.69
    Range("A1").Select
End Sub

EDIT
de plus le texte est en surimpression alors que j'aimerai qu'il apparaisse en dessous du texte de la feuille

 

[tactic6]

Re : Un plus pour l'impression

Bonsoir le forum
en changeant le msoTextEffect1
par msoTextEffect26 plus tellement la peine de trouver la transparence
en effet le format d'écriture permet de voir à peu près les écritures d'en dessous
par contre je n'ai toujours pas trouver comment imprimer la deuxième feuille avec ce texte en plus
si quelqu'un a une idée je suis preneur peut être que ma démarche est complètement erronée ?
Merci

 

[tactic6]

Re : Un plus pour l'impression

Bonjour
j'explore toutes les pistes .... elles sont minces
peut être une solution en faisant une copie de ma feuille et en lui insérant un filigrane
il faudrait ensuite que la macro impression m'incrémente les cellules G12 des 2 feuilles et que l'impression se fasse dans l'ordre
cette solution serait elle envisageable ?
serait ce la seule ?
j'espere de vos conseils et lumieres
Merci et bonne journée