Impression Automatique

[phil_vsd]

Salut tous,

 

j'ai fait un petit lisp qui, si les présentations sont bien paramétrées (Mise en page...), imprime une par une les présentations.

 

 (defun c:impdf (/) ;Finalisé sur LT
(setq activ (getvar "ctab")) ;On mémorise la présentation où l'on se trouve actuellement
(foreach l (layoutlist) ;Pour toutes les présentations
(setvar "CTAB" l) ; on la rend active
(command "-traceur" "" "" "A3 PDF Couleur" "" "" "" "" ) ;lance l'impression
(setvar "CTAB" activ) ;retourne sur la présentation de départ
)
)

 

Ici l'impression se fait avec une configuration PDF. On remplace "A3 PDF Couleur" par le nom de la mise en page que vous vous êtes préparé. Si on ne met rien il imprimera selon la config enregistrée sur cette vue.

 

Pour ceux qui veulent savoir ce que veulent dire les "", il faut directement taper sur la ligne de commande -traceur et lire ce qui s'inscrit. En lisp, "" est comme taper sur ENTREE

 

Ce post peut faire doublon mais il est bon de rafraîchir la mémoire de temps en temps.

 

A bientôt.