aperçu avant impression pour listbox

[rudy dehaudt]

Bonjour a tous,
comment ajouter un aperçu avant impression au code ci-dessous ?
merci


Private Sub CommandButton9_Click() 'imprimer la listbox
Sheets("Suivi de BL et FACTURE ").Cells.ClearContents
Sheets("Suivi de BL et FACTURE ").Range("B3").Resize(Me.ListBox2.ListCount, Me.ListBox2.ColumnCount) = Me.ListBox2.List
Sheets("Suivi de BL et FACTURE ").PrintOut
End Sub

A+

 

[Guest]

Re : aperçu avant impression pour listbox

Bonjour,

Remplacer:

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

Par

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

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

A+

 

[YANN-56]

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

 

[rudy dehaudt]

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

 

[rudy dehaudt]

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

 

[Guest]

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+

 

[YANN-56]

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

 

[rudy dehaudt]

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+

 

[Guest]

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:

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

A+

 

[YANN-56]

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:

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

 

[Guest]

Re : aperçu avant impression pour listbox

re,

N'est-il pas?

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+

 

[YANN-56]

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