commande imprimer

[altinea]

bonjour le forum, je voulais imprimer via la commande "printout", seulement ça m'imprime en 2 pages alors que je voudrai en une seule, la commande que j'ai rajouté, bug pouvez vous m'aider merci

 

[camarchepas]

Re : commande imprimer

Bonsoir,

Bon pas facile à déchiffrer ...

Un bout de fichier ou de code c'est toujours mieux qu'une image ...

essai comme cela au moins y'a plus d'erreur ..

Sans le fichier , pas moyen de voir grand chose

ActiveWindow.SelectedSheets.PrintOut , collate:=True

 

[Papou-net]

Re : commande imprimer

Bonsoir altinea, camarchepas, le forum,

Effectivement, une image de code ça n'encourage pas mais, si ça peut aider, voir du côté de l'instruction FitToPagesTall.

Ou bien aussi enregistrer une macro avec les réglages de l'imprimante idoines.

Cordialement.

 

[altinea]

Re : commande imprimer

bonsoir le forum le fil, merci pour vos réponses, Papou-net quel est l'opération que tu évoques et comment la faire.
Concernant mon fichier, il contient pas mal de données et j en peux le mettre en ligne, meme en version allégée,je sais que ce n'est pas simple mais bon je via essayer de trouver avec votre aide.
J'ai essayé la vers ion de çamarchepas et bien c'est le cas ça ne marche pas.

j'avais commet commande printout, mais avec cette commande il m'imprime sur 2 feuilles et je voulais qu'il m'imprime les infos que sur une feuille, la commande suivante devait me permettre d'y arriver mais j'ai erreur de compilation voici la ligne de commande,
activewindow.selectedsheets.printout:=1,collate:=true,ignoreprintarea:=false
je vais malgré tout essayer de mettre un fichier allégé
voila donc la version allégée, la commande se trouve dans le bouton de l'userform que l'on active sur la feuille "formations psst" à partir du bouton formulaire
voila si cela permets d'aller plus facilement au but
merci encore

 

[altinea]

Re : commande imprimer

Bonjour je reviens vers vous des fois que mon sujet puisse vous inspirer, merci

 

[chris]

Re : commande imprimer

Bonjour

2 pages au lieu d'une en hauteur ou en largeur ?

FitToPagesWide = 1 pour la largeur
FitToPagesTall = 1 pour la hauteur

Cependant il y a une règle qui est de ne pas réduire en-dessous de 80% sinon c'est illisible.
Sur ton exemple on est à 10% !
A moins de placer la feuille sous un microscope...

 

[chris]

Re : commande imprimer

Bug ! Double post

 

[altinea]

Re : commande imprimer

le forum, le fil, chris,
pour les 10% je comprends pas ci joint fichier ça m imprime bien en format correct,

Par contre le code fait que les colonnes se mettent en largeur automatiquement

.Cells.EntireColumn.AutoFit
.PrintOut

Du coup, ce qu'il me faudrait c'est savoir comment régler la largeur des colonnes,
ou comment définir la zone d'impression et imprimer celle ci

merci, j'espère que c'est un peu plus clair