Comment forcer la multiimpression à l'écran sur Mac

Produit : 4D 2004 · Plateforme : Mac

Je veux faire une démo sur Mac à l'écran des impressions possibles générées dans mon application. La première édition est bien à l'écran, mais les suivantes partent à l'imprimante. J'utilise les commandes PARAMETRES IMPRESSION, LIRE OPTION IMPRESSION et FIXER OPTION IMPRESSION(1)

C_ENTIER LONG($valeur1)
PARAMETRES IMPRESSION

La boîte de dialogue de paramétrage de l'impression s'affiche en premier lieu, suivie de celle d'impression proprement dite.
Cliquez sur Aperçu.

Si (OK=1)

Grâce à la commande : LIRE OPTION IMPRESSION (Option destination ;Résultat)

    LIRE OPTION IMPRESSION(9;$valeur1)

on récupère dans $valeur1 la valeur de l'option 9 qui est égale à 5 si aperçu demandé.

On imprime par exemple :

    Imprimer ligne([MaTable];"PrintLigne1")
    Imprimer ligne([MaTable];"PrintLigne2")
    Imprimer ligne([MaTable];"PrintLigne3")
    ` etc., boucle et reboucle

Nous allons maintenant changer de commande d'impression :

    IMPRIMER SELECTION([MaTable];›)

Le paramètre › provoque en outre l'impression sans réinitialisation des paramètres d'impression, sauf en changeant de commande.

Grâce à la valeur récupérée dans $valeur1, nous réinitialisons l'option de destination à l'écran (Aperçu =› 5) :

    FIXER OPTION IMPRESSION(Option destination;$valeur1)
    FORMULAIRE SORTIE([MaTable];"PrintSelection"
    IMPRIMER SELECTION([MaTable];›)
    `Faire quelque chose… et passer en paysage
    FIXER OPTION IMPRESSION(Option orientation;2)
    IMPRIMER SELECTION([MaTable];›)
    `Faire quelque chose… et repasser en portrait
    FIXER OPTION IMPRESSION(Option orientation;1)
    ` etc., boucle et reboucle
    FORMULAIRE SORTIE([MaTable];"Sortie")

Fin de si