Imprimer fichiers TXT

Franck · 20 Août 2006

Bonsoir a tous

Voila dans un USF un ComandButton doit imprimer tous les fichiers au farmat TXT present dans le repertoir actif et me permetre au prealable de choisir l'imprimante

Merci pour vos idées
Franck

MichelXld · 20 Août 2006

Re : Imprimer fichiers TXT

bonsoir Franck

pour choisir l'imprimante

Code:

Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show

pour imprimer un fichier txt

Code:

Shell "notepad.exe /P""C:\monRepertoire\leFichier.txt""", 1

bonne soiree
MichelXld

Franck · 20 Août 2006

Re : Imprimer fichiers TXT

Bonsoir Michel

Merci pour ton aide
a + Franck

Franck · 20 Août 2006

Re : Imprimer fichiers TXT

MichelXld à dit:
bonsoir Franck

pour choisir l'imprimante

Code:

Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show

pour imprimer un fichier txt

Code:

Shell "notepad.exe /P""C:\monRepertoire\leFichier.txt""", 1

bonne soiree
MichelXld

Ups Probleme
voici mon code

Dim fichier As String
fichier = Dir(ActiveWorkbook.Path & "\" & CB38.Value)
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
Shell "notepad.exe /P" & ActiveWorkbook.Path & "\" & CB38.Value, 1

Ca fonctionne mais quand je selectionne une imprimante il n'en tiens pas compte et imprime sur l'imprimante par defaut

Franck

Franck · 26 Août 2006

Re : Imprimer fichiers TXT

Bonjour a tous

Voila je me permet de faire revivre ce poste car la réponse n'est pas complette

Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
je cherche plutot (peut etre )
Application.Dialogs(Notepad ...........).Show

Merci de votre aide
Franck

Imprimer fichiers TXT

Franck

Guest

MichelXld

XLDnaute Barbatruc

Franck

Guest

Franck

Guest

Franck

Guest

Discussions similaires

Imprimer fichiers TXT

Franck

Guest

MichelXld

XLDnaute Barbatruc

Franck

Guest

Franck

Guest

Franck

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency