Imprimer fichiers TXT

[Franck]

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]

Re : Imprimer fichiers TXT

bonsoir Franck

pour choisir l'imprimante

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

pour imprimer un fichier txt

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

bonne soiree
MichelXld

 

[Franck]

Re : Imprimer fichiers TXT

Bonsoir Michel

Merci pour ton aide
a + Franck

 

[Franck]

Re : Imprimer fichiers TXT

bonsoir Franck

pour choisir l'imprimante

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

pour imprimer un fichier txt

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]

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