Un printername por cualquier otro nombre

Un printername por cualquier otro nombre

Un printername por cualquier otro nombre : Multi-millones de consejos para hacer su vida mas facil.

El Perpetuo Novato de la Entrada de Registro #4.1
Este articulo aparecio por primera vez en http://www.undu.com
me gusta mantener mi a los usuarios informados. Una pieza particular de informacion que tiende a evitar problemas en el camino es tener una etiqueta en la pantalla de cual es la impresora activa. Esto ayuda a evitar el envio de laser de informes para las impresoras de matriz y viceversa. Y sabiendo donde el destino mentiras me permite cambiar el ... el boton de Impresion para un & boton de Fax como la ocasion lo exige. Un poco de cosa, pero me tranquiliza que el usuario esta en control.
por Desgracia, he utilizado un tercero DCU para obtener el nombre de la impresora durante varios años. Yo se, yo se. Usted no debe utilizar ninguna herramienta de terceros que usted no tiene origen, pero funciono muy bien. Hasta mi mas reciente actualizacion. Fue entonces cuando descubri el DCU-proveedor ya no era mas el apoyo o la actualizacion de la herramienta. Uy!!!
me fui a traves de la TPrinter seccion de ayuda. Aun no podia llegar a una solucion. Por ello, frente a la internet que me fui, el uso de www.deja.com para la busqueda 'Delphi printername.' Como ha sido señalado para mi, probablemente me hubiera ido mejor en http://www.tamaracka.com/search.htm. A pesar de la equivocada inicio, me encontre con varios mensajes de correo electronico, incluyendo uno por Barry McClure de Grebar Sistemas, los proveedores de PrintDAT!, un muy buen cuadricula impresora herramienta que he estado usando felizmente. En el intercambio fue mi solucion,
se presenta aqui como una funcion o dos:

& nbsp & nbsp utiliza Impresoras
& nbsp & nbsp {se LLENA Printername incluyendo la designacion de puerto}
& nbsp & nbsp funcion gmGetPrinterName:string
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp si la Impresora.PrinterIndex = -1
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp entonces el resultado := 'no tiene Ningun valor Predeterminado de la Impresora Seleccionada'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else result := Impresora.Impresoras[Impresora.PrinterIndex]
& nbsp & nbsp final
& nbsp & nbsp {Devuelve el Printername sin designaciones de puerto}
& nbsp & nbsp funcion gmGetJustPrinterName:cadena
& nbsp & nbsp const
& nbsp & nbsp & nbsp & nbsp s = ' a ' // incluir un espacio antes y despues de 'on' para el pos de la busqueda
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp si la Impresora.PrinterIndex = -1
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp entonces el resultado := 'no tiene Ningun valor Predeterminado de la Impresora Seleccionada'
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp else begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp resultado := Impresora.Impresoras[Impresora.PrinterIndex]
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp pos si(s,resultado) > 0
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp entonces el resultado := copy(resultado,1,pos(s,resultado)-1) // se afeita a puerto
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp final
Gary Mugford
Idea Mecanico, Bramalea EN Canada
[email protected]