tengo un programa visual 6.0 que en impresoras matriz de pto, lo hace correctamente, pero al imprimir el mismo doc en una laser ma tira en dos hojas lo mismo???
Que onda!!!
codigo:
strArchivo = CurDir & "\Plantillas\" & DBGrid1D.Columns(1) & ".xls"
If Dir(strArchivo) > "" Then
Set xl = CreateObject("Excel.application")
xl.Workbooks.Open strArchivo
xl.Worksheets.PrintOut , , , , Printer.DeviceName
xl.Application.DisplayAlerts = False
xl.Workbooks.Close
Set xl = Nothing
End If