[Résolu][Calc] Impression sur plusieurs colonnes

[Itstantrum]

Bonjour,

Je tente de faire tenir un fichier sur une seule page. Il contient trop de lignes pour cela. Comme les colonnes ne sont pas trop larges, on pourrait faire continuer la colonne sur la droite de la même page. Imprimer en 2pages sur une même page ne convient pas car avec la mise à l'échelle cela donne de petites colonnes. Je voudrais que les colonnes gardent la même largeur.
J'ai recherché sur internet, et j'ai trouvé qu'une macro pourrait résoudre le problème. Voici la macro la plus proche de ce que je cherche :

Code : Tout sélectionner

Code (Text):
Sub Imprimer()
Dim decoupe As Byte, h As Long, i As Byte, plage As Range
decoupe = 6 'nombre de colonnes imprimées = 12
Application.ScreenUpdating = False
Feuil1.Copy 'copie dans un nouveau document
With ActiveSheet
  h = Int(.[A65536].End(xlUp).Row / decoupe) + 1
  For i = 2 To decoupe
    .[A1:B1].Copy .[A1].Offset(, 2 * i - 2) 'titres
    Set plage = .[A1:B1].Offset(h * (i - 1)).Resize(h)
    plage.Cut .[A2].Offset(, 2 * i - 2) 'Couper/Coller
  Next
  .PageSetup.FitToPagesWide = 1
  .PageSetup.FitToPagesTall = False
  .PrintOut Preview:=True 'impression après aperçu
  .Parent.Close False 'fermeture du document
End With
End Sub

Mais je ne maîtrise pas les macros et je n'arrive pas à la parémétrer pour que la colonne contienne exactement 89 lignes. Qui peut m'aider ?
Merci.

[Bidouille]

Bonjour,

Ce forum est organisé en sections et vous avez posté votre question au mauvais endroit : <Calc>.
Fil déplacé
Les questions "macros" se posent dans la section... Macros.
Nous vous invitons vivement à lire le descriptif de chaque section mentionné sur la page d'accueil de notre forum.

Merci de votre collaboration.

[Itstantrum]

Toutes mes excuses pour ces désagréments. Je n'avais même pas conscience que les macros n'appartenaient pas spécifiquement à calc. Pourtant le nom l'indique bien. Merci pour votre aide.

[TheHache]

Bonsoir,

...Je tente de faire tenir un fichier sur une seule page.

De quel onglet parles tu pour l'impression : BDC ou bon de commande ?

@+

[ThierryT]

Bon, déjà nous sommes avec une macro en VBA de chez machin.
La compatibilité n'est donc pas garantie avec notre suite.

De plus, si on parle de la feuille "bon de commande", il n'y a pas besoin de macro pour cela.
Il suffit de faire les actions suivantes :
- suppression de la zone d'impression de la feuille.
- définir les marges correctes des pages : menu Format>Page> onglet Page

Capture.PNG

- définir l'Echelle d'impression : menu Format>Page> onglet Feuille

Capture1.PNG

Je joins le fichier correspondant.