imprimir fichero de un listbox

[Avellaneda]

Sí lo puedes hacer, pero debes indicar la hoja que quieres imprimir

Código:

Dim miXLS As String
    Dim oExcel As Object, oWorkbook As Object

    miXLS = List1.Text
    Set oExcel = CreateObject("Excel.Application")
    Set oWorkbook = oExcel.Workbooks.Open(miXLS)
    oExcel.Sheets("Hoja1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    oExcel.Quit
    Set oWorkbook = Nothing
    Set oExcel = Nothing