Bonjour,
je souhaite créé une macro imprimer
en imprimant
La 1ère page de la première feuille Devis
puis
La feuille tarifs
puis
La 1ère page de la première feuille Devis
puis
La feuille tarifs
puis
La 2ème page de la première feuille Devis
puis
La feuille tarifs
La 2ème page de la première feuille Devis
puis
La feuille tarifs
La 2ème page de la première feuille Devis
puis
La feuille tarifs
puis
La 3ème page de la première feuille Devis
puis
La feuille tarifs
en résumé 6 feuilles devis et 6 feuilles Tarifs intercalées.
J'avais
Sub Imprimer_Devis()
'
' Imprimer_Devis Macro
' Macro enregistrée le 22/10/99 par VdM
'
'
Range("A1:F49").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
End Sub
pour imprimer Devis
et
Sub Imprimer_Tarifs()
'
' Imprimer_Tarifs Macro
' Macro enregistrée le 03/05/2011 par gpantaignan
'
Range("A1:AY49").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=6, Collate _
:=True
End Sub
pour imprimer Tarifs
Ayant changer d'imprimante
je souhaitais imprimer comme ci-dessus.
Merci de votre aide sachant que je n'y comprends rien aux codes.
Mieux vaut un qui sait que cent qui cherchent.
Je peux vous envoyer le fichier par mail à ceux qui le souhaite mais il dépasse la taille autorisée ici.
je souhaite créé une macro imprimer
en imprimant
La 1ère page de la première feuille Devis
puis
La feuille tarifs
puis
La 1ère page de la première feuille Devis
puis
La feuille tarifs
puis
La 2ème page de la première feuille Devis
puis
La feuille tarifs
La 2ème page de la première feuille Devis
puis
La feuille tarifs
La 2ème page de la première feuille Devis
puis
La feuille tarifs
puis
La 3ème page de la première feuille Devis
puis
La feuille tarifs
en résumé 6 feuilles devis et 6 feuilles Tarifs intercalées.
J'avais
Sub Imprimer_Devis()
'
' Imprimer_Devis Macro
' Macro enregistrée le 22/10/99 par VdM
'
'
Range("A1:F49").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True
End Sub
pour imprimer Devis
et
Sub Imprimer_Tarifs()
'
' Imprimer_Tarifs Macro
' Macro enregistrée le 03/05/2011 par gpantaignan
'
Range("A1:AY49").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=6, Collate _
:=True
End Sub
pour imprimer Tarifs
Ayant changer d'imprimante
je souhaitais imprimer comme ci-dessus.
Merci de votre aide sachant que je n'y comprends rien aux codes.
Mieux vaut un qui sait que cent qui cherchent.
Je peux vous envoyer le fichier par mail à ceux qui le souhaite mais il dépasse la taille autorisée ici.