code pour impression, inserer une commande

[charette63]

Bonjour à toutes et tous,

voici un code qui me permet d'imprimer la selection de cellule d'une feuille excel.

Sub print_horaire01()

    Sheets("Horaire").Select
    Range("A1:AH69").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AH$69"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

La taille de cette selection fait 2 feuilles A4 en position "paysage" (donc un A3 en position "portrait").
Mais voilà, ce n'est pas demain la veille que je recevrai une imprimante A3.
Est-il possible et que serait-il, d'inserer un bout de code qui me permettrais d'imprimer cette satanée 😡 feuille en A4 "portrait?

merci pour votre aide

cordialement

Thierry

 

[Paritec]

Re : code pour impression, inserer une commande

bonjour Charette le forum
si tu as 2007 c'est pas un souci, mais comme tu as cru bon d'oublier les recommandations et que tu n'as pas mis ta version excel bah c'est oui ou non la réponse, de plus pas de fichier pour tester !!!
a+
papou🙂

EDIT Salut JOB , mais si il est sous 2007 il va pouvoir mettre à l'échelle automatiquement pour avoir ces deux feuilles sur la même, mais sous 2007 et + pas 2003

 

[job75]

Re : code pour impression, inserer une commande

Bonsoir charette63,

En mode "Portrait", compléter ainsi :

Sub print_horaire01()

    Sheets("Horaire").Select
    Range("A1:AH69").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AH$69"
    ActiveSheet.PageSetup.FitToPagesWide = 1
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

Edit : salut papou

A+

 

[charette63]

Bonsoir,

merci pour votre participation,

je travaille encore avec excel 2002 xp (mais on ne peux pas m'enlever des points pour mon omission, je l'ai renseigner dans la case prévue à cet effet avant le titre de mon post et on le voit en haut de cette page)

je vais tenter le code de Job75

merci

EDIT

eh bien non, ça s'imprime sur deux feuilles

 

[job75]

Re : code pour impression, inserer une commande

Re,

Hum, jamais entendu parler de l'enregisteur de macro ??

Sub print_horaire01()

    Sheets("Horaire").Select
    Range("A1:AH69").Select
    With ActiveSheet.PageSetup
      .PrintArea = "$A$1:$AH$69"
      .FitToPagesWide = 1
      .FitToPagesTall = 1
    End with
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

Mais vous avez vraiment besoin de VBA pour faire ça ?? Car c'est vraiment basique...

A+

 

[charette63]

re cher Job75

je connais bien l'éditeur vba, je l'ai même testé et ça n'a rien donné de probant (???)

je retest et je transmet

merci

 

[charette63]

Re: Re : code pour impression, inserer une commande

ben voilà, je viens de retenter le coup directement via édition-imprimer-propriété-imprimer format a4 (case mettre à l'echelle cochée), et j'ai malgrés tout 2 feuilles

 

[job75]

Re : code pour impression, inserer une commande

Re,

J'aurais fait Fichier-Mise en page-Page-Ajuster => 1 et 1...

Bonne nuit.

 

[job75]

Re : code pour impression, inserer une commande

Re,

J'aurais plutôt fait Fichier-Mise en page-Page-Ajuster => 1 et 1...

Bonne nuit.

 

[charette63]

Mais,mais t'es un as Job

avec tout mes remerciements

cordialement
thierry