Imprimer Excel

Question

Comment Imprimer une feullle excel (entenant compte de la selection pour ne pas imprimer toutes les lignes), le fichier excel étant hors de visual basic donc déjà créé. Imprimer a partir de VB6.
Et aussi comment créer un Etat d'Access 97,2000 ou autres par Vb. Si possible me donner le code complet de la source!

Merci grandement à ceux qui repondront!   :big)

ThePsychowizard · Answer

Pour imprimer une feuille excel....

Set Printer = Printers(List1.ListIndex)
portimprimante = Printer.Port
nomimprimante = Printer.DeviceName

nomcompletimprimante = nomimprimante & " sur " & portimprimante
fichierexcel.Application.ActivePrinter = nomcompletimprimante
fichierexcel.ActiveWorkbook.Worksheets("Feuil1").PrintOut Copies:=1, ActivePrinter:=nomcompletimprimante, Collate:=True
Printer.EndDoc

Un conseil, quand tu veux diriger excel avec vb6 mais que tu sais pas comment faire, fait une macro sous excel, regarde le code qu'il t'écris (c'est du VB!!!) puis fais un copier coller pour l'intégrer à ton prog!!!! ;-)

The Psychowizard.

DjGonk · Answer

Je te remercie je vais essayer

Imprimer Excel

2 réponses

Discussions similaires