Escojer bandeja de impresora

[Xevi]

No se si ya se ha preguntado en alguna ocasión, pero no encuentro ninguna
referencia a este caso.
En una impresora que disponde de dos bandejas de papel, ¿cómo puedo, desde
programa, decirle que coja el papel de una u otra bandeja???
Gracias.
Un Saludo,
Xevi.

[ignacio]

Xevi,
Compruebo que precisamente dicha propiedad está sin documentar
Es la propiedad Printer:nDefaultBin
Par ver los valores posibles ejecuta este código:
local aNames, aNumbers
local cString
local nFor
aNames := Printer:GetBinSourceNames()
aNumbers := Printer:GetBinSourceTypes()
cString := ""
For nFor := 1 to len( aNames )
cString += aNames[ nFor ] + " ( " + Ltrim( Str( aNumbers[ nFor ] ) ) +
")" + CRLF
Next
If Empty( cString )
cString := "No Printer Bins found"
Endif
MsgInfo( cString, "Printer Bins" )
El valor entre parentesis es lo que tienes que indicar en la propiedad.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:451d4dc9$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> No se si ya se ha preguntado en alguna ocasión, pero no encuentro ninguna
> referencia a este caso.
>
> En una impresora que disponde de dos bandejas de papel, ¿cómo puedo, desde
> programa, decirle que coja el papel de una u otra bandeja???
>
> Gracias.
>
>
> Un Saludo,
> Xevi.
>

[ignacio]

Xevi,
Precisament el código que te mande es de la ampliación de ese mismo ejemplo
que ya había hecho. Gracias de todas formas.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=451d7994@news.xailer.com...]451d7994@news.xailer.com...[/email]
> Ignacio,
>
> Gracias.
>
> He aprovechado tu ejemplo, y he modificado el sample PrinterInfo para que
> muestre además las bandejas disponibles.
> Adjunto el proyecto con esa modificación por si os parece correcto
> incorporarlo en los Samples de Xailer, pues serà una ayuda mas que nos
> informará ese Sample. Es una tontería pero todo ayuda.
>
>
> Por cierto,
>
> La documentación dice...
> TPrinter:GetBinSourceName
> cuando debería de decir
> TPrinter:GetBinSourceNames
>
>
>
> Un Saludo,
> Xevi.
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
> grup de discussió: 451d5a35$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Xevi,
>>
>> Compruebo que precisamente dicha propiedad está sin documentar
>>
>> Es la propiedad Printer:nDefaultBin
>>
>> Par ver los valores posibles ejecuta este código:
>>
>> local aNames, aNumbers
>> local cString
>> local nFor
>>
>> aNames := Printer:GetBinSourceNames()
>> aNumbers := Printer:GetBinSourceTypes()
>> cString := ""
>>
>> For nFor := 1 to len( aNames )
>> cString += aNames[ nFor ] + " ( " + Ltrim( Str( aNumbers[ nFor ] ) )
>> +
>> ")" + CRLF
>> Next
>>
>> If Empty( cString )
>> cString := "No Printer Bins found"
>> Endif
>>
>> MsgInfo( cString, "Printer Bins" )
>>
>> El valor entre parentesis es lo que tienes que indicar en la propiedad.
>>
>> Un saludo,
>> --
>> Ignacio Ortiz de Zúñiga
>> http://www.xailer.com
>> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
>> news:451d4dc9$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> No se si ya se ha preguntado en alguna ocasión, pero no encuentro
>>> ninguna
>>> referencia a este caso.
>>>
>>> En una impresora que disponde de dos bandejas de papel, ¿cómo puedo,
>>> desde
>>> programa, decirle que coja el papel de una u otra bandeja???
>>>
>>> Gracias.
>>>
>>>
>>> Un Saludo,
>>> Xevi.
>>>
>>
>>
>
>
>