Utiliser VBScript avec les modificateurs de code d’imprimante

Utilisez la fonctionnalité Modificateur de code d’imprimante de BarTender pour modifier le code d’impression envoyé à une imprimante ou au modèle de code d’imprimante. En utilisant les Actions du modificateur du code d’imprimante, vous pouvez facilement chercher le code d’imprimante et remplacer, insérer ou supprimer le texte dans l’interface de BarTender.

Pour modifier le texte au-delà des fonctions simples de Rechercher et remplacer de la boîte de dialogue Rechercher et remplacer (modificateur de code d’imprimante), vous pouvez créer un Visual Basic Script (VBScript personnalisé) pour modifier la sortie du code avant son envoi à l’imprimante ou au modèle de code d’imprimante. Les VBScripts offrent un contrôle complet sur la sortie du code d’imprimante.

À l’exécution de la commande Imprimer ou à l’exportation d’un modèle de code d’imprimante, BarTender stocke le contenu du code d’imprimante dans un objet interne qui est appelé PCM. Pour accéder au code d’imprimante dans un VBScript, vous devez faire référence à cet objet, lire chaque ligne du code d’imprimante, modifier le contenu des lignes conformément aux besoins et réécrire chaque ligne pour produire une sortie finale de code d’imprimante.

Exemple

'La variable détectée définit si le segment

'sélectionné a déjà été modifié

'Initialement, le code n’a pas été modifié, il est défini sur False

found = False

'Lire chaque ligne du code d’imprimante dans l’objet PCM

Do Until PCM.FileAtEOF

'Définir une variable qui supporte la ligne du code d’imprimante qui est lue

variableLine = PCM.ReadLine()

'Vérifier pour déterminer si la ligne de code doit être modifiée

If variableLine = "My criteria" Then

'Vérifier si la ligne n’a pas déjà été modifiée

If found = False Then

'Modifier les contenus de la ligne

PCM.WriteLine("My New Value")

'Définir la réponse détectée sur True

found = True

Else

'Si aucun des éléments précédents n’est vrai,

'réécrire la ligne non modifiée vers PCM

PCM.WriteLine(variableLine)

End If

Loop