aperçu avant impression pour listbox

G

Guest

Guest

• 17 Septembre 2010

• #2

Re : aperçu avant impression pour listbox

Bonjour,

Remplacer:

Code:

Sheets("Suivi de BL et FACTURE ").PrintOut

Par

Code:

Sheets("Suivi de BL et FACTURE ").PrinPreview

Où le mettre avant le premier si tu n'imprimes pas à partir de l'aperçu.

A+

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 17 Septembre 2010

• #3

Re : aperçu avant impression pour listbox

Bonjour rudy dehaudt, et à ceux qui passeront par ici,

Tente de remplacer ".PrintOut" Par ".PrintPreview"

Mais si ton évènement vient d'un USF, il faudra que celui-ci ait
été ouvert en "VbModeless" ... Sinon Bonjour le "ALT+F4" 😀

Amicalement.

Yann

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 17 Septembre 2010

• #4

Re : aperçu avant impression pour listbox

bonjour yann-56, hasco
effectivement bonjour le halt/F4 qu est ce que "VbModeless" ? peu tu m expliquer ?

merci

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 17 Septembre 2010

• #5

Re : aperçu avant impression pour listbox

bonjour tann-59, hasco en effet bonjour le plantage ?
qu est ce que VbModeless ?
pouvait vous expliquer

merci

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Septembre 2010

• #6

Re : aperçu avant impression pour listbox

Re,

Puisque yann a pris la fuite😀 ou qu'il est pris ailleurs

Un usf est affiché en mode 'Modal' par défaut c'est à dire que lorsqu'il est affiché tu n'a plus accès à l'interface utilisateur.

Tu as une propriété de l'usf nommée 'ShowModal' met lui la valeur 'False'.

Sinon tu peux appeler ton usf par MonUsf.Show vbModLess

Cela te permettra d'interagir avec l'interface excel pendant l'affichage de ton usf.

Voir l'aide en ligne sur la propriété ShowModal

A+

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 17 Septembre 2010

• #7

Re : aperçu avant impression pour listbox

Re, avec au passage un Salut à Hasco,

Amusant! Me voici transformer en "tann-59"
Chez moi ce n'est pas très grand, et quand je vais faire pipi,
je ne passe pas du Sud Bretagne au Nord de la France !!! 🙂 🙂 🙂

En premier lieu, dis-nous si ton bouton est sur une page, ou dans un USF.

A te lire.

Yann

 

Vote positif 0 Vote négatif

R

rudy dehaudt

XLDnaute Occasionnel

• 17 Septembre 2010

• #8

Re : aperçu avant impression pour listbox

mille excuse yann-59
merci a vous
j ai mis en FALSE et s est OK pour un aperçu de la feuille avec possibilité d imprimer la feuille par contre dans le code je penser afficher le compte tenu de la liste box et pas la feuille complete
pour plus de net dans mais propos je vous joint le fichier source
clique sur l USF puis sur ul un des boutons C NC EN ATTENTE pour affiche l etat des commande dans la listbox puis cliquer sur imprimer et la s est toute la feuille qui pourrais etre imprimer

penser vous faire quelque chose docteur ?


Cijoint.fr - Service gratuit de dépôt de fichiers

A+

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Septembre 2010

• #9

Re : aperçu avant impression pour listbox

Re,

C'est Yann-56 (Morbihan) et pas 59😀

Je suis désolé, mais je n'ouvre que très exceptionnellement les fichiers joints ailleur que sur le forum.

Mais sans avoir besoin de l'ouvrir l'idée serait de mettre les valeurs de ta listBox dans les cellules d'une feuille, de définir la plage de cellule en tant que zone d'impression et lancer l'aperçu. Voir l'aide excel sur 'PrintArea'.

ex:

Code:

Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"

A+

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 17 Septembre 2010

• #10

Re : aperçu avant impression pour listbox

Re itou,

Hasco:
Pas grave! Confusion pardonnable! Car ici avec le Soleil et l'air Salin on a un peu le teint "Tanné"

Quant à ma disparition; les coupures ADSL intempestives en sont la raison!
5 abonnés, 2,5 kms du bourg et 15 de la plage; cela n'intéresse pas ces messieurs!!!

rudy dehaudt, je te laisse entre de bonnes mains.

Au passsage Hasco: Ce que j'aime bien faire:

Code:

Worksheets("Feuil1").Select
    ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(5, 3)).Select
    Selection.PrintOut

(Ou Preview of course)
Idem "Activate" au lieu de "Select"

Cela laisse un peu plus de souplesse quand la zone à choisir est variable.

N'est-il pas?

Amicalement

Yann

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 17 Septembre 2010

• #11

Re : aperçu avant impression pour listbox

re,

Yann à dit:

N'est-il pas?

Cliquez pour agrandir...

Certes, il est, il est.

Je suis actuellement en ligne avec la hot-line de mon FAI pour les mêmes raisons que toi. Pertes de synchronisation adsl répétées. France télécom et eux se bouffent le nez😀

Les dindons bien farcis, c'est nous😀

A+

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 17 Septembre 2010

• #12

Re : aperçu avant impression pour listbox

Hasco,

Il est vrai que cette affaire de connexions est hors sujet de la présente discussion.
Mais cela fait du bien d'en parler...!

Quand je vois le fric qui coule sur tapis rouges à Carnac et Quiberon,
je me dis qu'il y a aussi un racisme anti préférant le calme!!! 😡

J'en suis à prendre ma caisse et mon NetBook pour télécharger
sur un parking de Mac Do... les photos de ma t'ite fifille envoyées par ma fifille.

Juste pour l'anecdote. 🙄

Au plaisir de te croiser à nouveau.

Yann

 

Vote positif 0 Vote négatif