Un printername par un autre nom


L'éternel Débutant - Entrée de Journal #4.1
Cet article est d'abord paru sur http://www.undu.com
je tiens à garder mes utilisateurs informés. Un élément particulier de l'information qui tend à éviter les ennuis en bas de la route est d'avoir un étiquetage clair sur l'écran, comme pour ce qui est de l'imprimante active. Cela permet d'éviter l'envoi de laser de rapports pour les imprimantes matricielles et vice-versa. Et de savoir où la destination se trouve me permet de modifier l' & bouton Imprimer pour un & Fax bouton que l'occasion l'exige. Une petite chose, mais il rassure l'utilisateur que vous êtes en contrôle.
Malheureusement, j'ai utilisé un tiers de la DCU pour obtenir le nom de l'imprimante pour plusieurs années. Je sais, je sais. Vous n'êtes pas censé utiliser n'importe quel outil tiers que vous n'avez pas de source, mais il a fonctionné à merveille. Jusqu'à ce que ma plus récente mise à niveau. C'est quand j'ai découvert le DCU-fournisseur n'était plus le soutien ou la mise à jour de l'outil. Oups!!!
je suis passé par la TPrinter section d'aide. Encore ne pouvait pas venir avec une solution. Ainsi, à l'internet, je suis allé, à l'aide de www.deja.com à la recherche de 'Delphi printername.' Comme cela a été souligné à moi, j'aurais probablement été mieux chez http://www.tamaracka.com/search.htm. Malgré le faux départ, j'ai fait la rencontre de plusieurs e-mails, y compris par Barry McClure de Grebar Systèmes, les fournisseurs de PrintDAT!, une très belle grille imprimante outil que j'utilise avec plaisir. Dans l'échange a été ma solution,
présenté ici comme une fonction ou deux:

& nbsp & nbsp utilise des Imprimantes
& nbsp & nbsp {est PLEIN Printername y compris la désignation du port}
& nbsp & nbsp fonction gmGetPrinterName:string
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si l'Imprimante.PrinterIndex = -1
& ! & ! & ! & ! & ! & nbsp puis result := 'Aucune Imprimante par Défaut Sélectionné'
& ! & ! & ! & ! & ! & nbsp else result := Imprimante.Les Imprimantes[Imprimante.PrinterIndex]
& nbsp & nbsp fin
& nbsp & nbsp {Retourne le Printername sans les désignations de port}
& nbsp & nbsp fonction gmGetJustPrinterName:string
& nbsp & nbsp const
& ! & ! & ! & nbsp s = ''/ / un espace avant et après ' on ' pour le pos de recherche
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si l'Imprimante.PrinterIndex = -1
& ! & ! & ! & ! & ! & nbsp puis result := 'Aucune Imprimante par Défaut Sélectionné'
& ! & ! & ! & ! & ! & nbsp else begin
& ! & ! & ! & ! & ! & ! & ! & nbsp résultat := Imprimante.Les Imprimantes[Imprimante.PrinterIndex]
& ! & ! & ! & ! & ! & ! & ! & nbsp si pos(s) > 0
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp puis result := copy(résultat,1,pos(s)-1) // se rase port
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & nbsp fin
Gary Mugford
l'Idée de Mécanicien, Bramalea SUR Canada
[email protected]









Un printername par un autre nom


Un printername par un autre nom : Plusieurs milliers de conseils pour vous faciliter la vie.


L'eternel Debutant - Entree de Journal #4.1
Cet article est d'abord paru sur http://www.undu.com
je tiens a garder mes utilisateurs informes. Un element particulier de l'information qui tend a eviter les ennuis en bas de la route est d'avoir un etiquetage clair sur l'ecran, comme pour ce qui est de l'imprimante active. Cela permet d'eviter l'envoi de laser de rapports pour les imprimantes matricielles et vice-versa. Et de savoir ou la destination se trouve me permet de modifier l' & bouton Imprimer pour un & Fax bouton que l'occasion l'exige. Une petite chose, mais il rassure l'utilisateur que vous etes en controle.
Malheureusement, j'ai utilise un tiers de la DCU pour obtenir le nom de l'imprimante pour plusieurs annees. Je sais, je sais. Vous n'etes pas cense utiliser n'importe quel outil tiers que vous n'avez pas de source, mais il a fonctionne a merveille. Jusqu'a ce que ma plus recente mise a niveau. C'est quand j'ai decouvert le DCU-fournisseur n'etait plus le soutien ou la mise a jour de l'outil. Oups!!!
je suis passe par la TPrinter section d'aide. Encore ne pouvait pas venir avec une solution. Ainsi, a l'internet, je suis alle, a l'aide de www.deja.com a la recherche de 'Delphi printername.' Comme cela a ete souligne a moi, j'aurais probablement ete mieux chez http://www.tamaracka.com/search.htm. Malgre le faux depart, j'ai fait la rencontre de plusieurs e-mails, y compris par Barry McClure de Grebar Systemes, les fournisseurs de PrintDAT!, une tres belle grille imprimante outil que j'utilise avec plaisir. Dans l'echange a ete ma solution,
presente ici comme une fonction ou deux:

& nbsp & nbsp utilise des Imprimantes
& nbsp & nbsp {est PLEIN Printername y compris la designation du port}
& nbsp & nbsp fonction gmGetPrinterName:string
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si l'Imprimante.PrinterIndex = -1
& ! & ! & ! & ! & ! & nbsp puis result := 'Aucune Imprimante par Defaut Selectionne'
& ! & ! & ! & ! & ! & nbsp else result := Imprimante.Les Imprimantes[Imprimante.PrinterIndex]
& nbsp & nbsp fin
& nbsp & nbsp {Retourne le Printername sans les designations de port}
& nbsp & nbsp fonction gmGetJustPrinterName:string
& nbsp & nbsp const
& ! & ! & ! & nbsp s = ''/ / un espace avant et apres ' on ' pour le pos de recherche
& nbsp & nbsp commencer
& ! & ! & ! & nbsp si l'Imprimante.PrinterIndex = -1
& ! & ! & ! & ! & ! & nbsp puis result := 'Aucune Imprimante par Defaut Selectionne'
& ! & ! & ! & ! & ! & nbsp else begin
& ! & ! & ! & ! & ! & ! & ! & nbsp resultat := Imprimante.Les Imprimantes[Imprimante.PrinterIndex]
& ! & ! & ! & ! & ! & ! & ! & nbsp si pos(s) > 0
& ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp puis result := copy(resultat,1,pos(s)-1) // se rase port
& ! & ! & ! & ! & ! & ! & ! & ! & nbsp fin
& nbsp & nbsp fin
Gary Mugford
l'Idee de Mecanicien, Bramalea SUR Canada
[email protected]


Un printername par un autre nom

Un printername par un autre nom : Plusieurs milliers de conseils pour vous faciliter la vie.
Recommander aux amis
  • gplus
  • pinterest

Messages récents

Commentaire

Laisser un commentaire

évaluation