Tipos de impresora

[netorres]

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

[biffly]

proba configurando el obgeto printer

select case hoja
case "A4"
Printer.Width = 297 'hoja DIN A4
Printer.Height = 210 'hoja DIN A4
case "CARTA"
Printer.Width = 279 'hoja DIN carta
Printer.Height = 216 'hoja DIN carta
END SELECT
SELECT CASE ORIENTACION
CASE "NORMAL"
Printer.Orientation = 1
CASE "APAISADA"
Printer.Orientation = 2
END SELECT

donde "hoja" es el tamaño del papel y"orientacion" bueno esta de mas decirlo...

saludos...