[VB6]: Stampare file Excel in una cartella

[Venom88*]

Come faccio a creare un bottone che stampi su carta tutti i file excel presenti in una cartella?

[ranza!!!123]

ma devi stampare solo i nomi dei files o anche il contenuto??

[Venom88*]

tutto

[Venom88*]

up

[icecube_HT]

Originariamente inviato da Venom88*
Come faccio a creare un bottone che stampi su carta tutti i file excel presenti in una cartella?

Prova qualcosa del genere...

   Dim Foglio As Object, f As String
   ChDir "<nome cartella>"

   Set Foglio = CreateObject("excel.sheet")
   Foglio.Application.Visible = True
   f = Dir("*.xls")
   While f <> ""
      Workbooks.Open Filename:=f
      Workbooks(f).PrintOut
      MsgBox "Stampa file: " & f 
      Workbooks(f).Close
      f = Dir$
   Wend
   Foglio.Application.Quit
   Set Foglio = Nothing

Attenzione: Io l'ho testato da dentro Excel (in ambiente VBA) e funziona...
(in questo momento non ho VB6 sottomano..)

Ciao !