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...
codice:
   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 !