PreviousNext
Help > Programmation avec LAUNCHER Office > Les commandes LNCCMD > Liste des commandes > Commande SETPRINTER
Commande SETPRINTER

 

Cette commande permet au programme AS/400 de:

         Modifier certaines propriétés de l’imprimante désignée.

         Configurer une imprimante Windows avec une configuration précédemment enregistrée.

         Rediriger la sortie de l’imprimante vers un fichier.

         Changer l’imprimante par défaut.

 

L'appel à la commande RSTPRINTER annule les changements effectués par SETPRINTER

 

Syntaxe

 

CHGVAR

VAR(&CMD) VALUE('SETPRINTER')

CHGVAR

VAR(&PARM1) VALUE('
Printer="Nom de l'imprimante"
[;setdefault= True/False ]
[;prnfile="Chemin et Nom du fichier de sortie" ]
[;configfile="Nom du fichier de définition" ]
[;Trunc=True/False ]
[;Source= Nombre ]
[;Orientation= Nombre ]
[;Duplex= Nombre ]
[;Copies= Nombre ]
')

 

 

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 &RESULT)

 

 

 Paramètres

 

Paramètres

 

Parm1

Printer = Nom de l'imprimante. Utilisez le nom connu du système Windows.

 

Setdefault = True fixe cette imprimante comme imprimante par défaut.

 

Prnfile = Chemin et Nom du fichier de sortie
L'utilisation de cette option est déconseillée en mode CITRIX ou Windows TSE.

 

Configfile = Nom du fichier de définition de l'imprimante
Ce fichier est crée par l'utilitaire, voir :
Fichiers de configuration d'imprimante.

 

Trunc = True /False

True : Le fichier désigné par PrnFile est mis à blanc.

False : Les nouvelles impressions seront concaténées au fichier désigné par PrnFile.

 

Orientation

Portrait = 1

Paysage = 2

 

Source

Premier = 1

Le plus haut = 1

Un seul = 1

Le plus bas = 2

Milieu = 3

Manuel = 4

Enveloppe = 5

Enveloppe manuelle = 6

Auto = 7

Tracteur = 8

Petit = 9

Large = 10

Large Capacité = 11

Cassette = 14

Source = 15

Dernier = 15

 

Duplex

1 = Recto simple

2 = Recto verso sur le haut de la page

3 = Recto verso sur le côté gauche

 

Copies

Nombre de copie à imprimer

 

 

Remarques

 

- Cette commande permet de passer momentanément sur une configuration d'imprimante que vous auriez préenregistrée dans un fichier.

- Lors d'une impression d'un publipostage, d'imprimer dans un fichier.

Ce qui accélère l'exécution des publipostages avec une grande quantité d'enregistrement et permet de contourner certains bugs de Word.
Notamment les problèmes de Word avec des fichiers prenant trop de place en mémoire.
L'impression dans un fichier concatène toujours les nouvelles données avec les données déjà présentes dans le fichier.
L'option Trunc permet de vider le fichier lors de l'appel de la commande SETPRINTER. Si plusieurs impressions sont faites, avant l'appel de RSTPRINTER, les données seront concaténées.

 

Par exemple, vous pouvez rediriger la sortie de l’imprimante vers un fichier (fichier PRN). En utilisant la commande LAUNCHER IFSPUT et la commande CL LNCPRTDOC, vous pouvez déplacer le fichier PRN vers une OUTQ AS400.

 

Attention, l'utilisation de l'impression dans un fichier en mode TSE est fortement déconseillée.

 

 

Exemple

Cet exemple permet d'imprimer le résultat d'un publipostage dans un fichier texte (.prn), cela correspond dans Word à l'option 'Imprimer dans un fichier'.

 

//Lancer LAUNCHER

LNCOPEN

MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))

//Tranfèrer les données d'un fichier

LNCXFER PCFILE('%LNCDIR%\samples\sp_cust.txt') FROMFILE(SP_CUST) CLOSECOM(*NO)

MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))

//Modifier le fichier de sortie

LNCCMD CMD(SETPRINTER) PARM1('printer="HP LaserJet 1200 Series PCL 6";prnfile="%lncdir%\samples\test.prn";trunc=true;setdefault=true')

MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))

//Ouverture de Microsoft Word Visible

LNCCMD CMD(WORDOPEN) PARM2(visible)

MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))

//Fusion du modèle de publipostage vers un fichier texte

LNCCMD CMD(WMAILMERGE) PARM1('document="%lncdir%\samples\sp_cust.doc"+

;destination=wdSendToPrinter;DataSource="%lncdir%\samples\sp_cust.txt"')

MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))

//Restaure les paramètres par défaut de l'imprimante

LNCCMD CMD(RSTPRINTER) PARM1('printer="HP LaserJet 1200 Series PCL 6"')

MONMSG MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR))

//Fermeture de Microsoft Word

LNCCMD CMD(WORDCLOSE)

 

Voir aussi

 

         Commande RSTPRINTER

         Commande WMAILMERGE