[R] Conversion VBA vers AutoIt (avec ObjCreate)

[peuchere83]

Bonjour à tous,

Je cherche à piloter une étiqueteuse usb au travers d'une application que j'ai développé sous autoit qui pilote déjà 2 autres imprimantes.
Mon souci est le suivant : je n'arrive pas à transformer le code d'impression pour l'utilisation sous autoit.

Voici 2 exemples d'application (récupérée du sdk de l'imprimante) qui permettent de lancer des impressions

► Afficher le texte

Code : Tout sélectionner

'
' Exemple VB
'
Private Sub Print()
    Dim path As String
    path = "C:\Program Files\Brother bPAC3 SDK\Templates\NamePlate1.lbx"
    
    Dim doc As bpac.Document
    Set doc = CreateObject("bpac.Document")
    
    ' Ouvre le modèle
    doc.Open path
    
    ' Début de la configuration de l'impression
    doc.StartPrint "b-PAC printing test", bpoAutoCut
    
    ' Ajoute une tâche d'impression (2 tâches sont imprimées)
    doc.PrintOut 2, bpoAutoCut
    
    ' Fin de la configuration de l'impression (=Démarrage de l'impression)
    doc.EndPrint
    
    ' Ferme le modèle
    doc.Close
End Sub
 

► Afficher le texte

Code : Tout sélectionner

//
// Exemple C# 
//
void Print()
{
    string strFilePath = "C:\\Program Files\\Brother bPAC3 SDK\\Templates\\NamePlate1.lbx";

    bpac.DocumentClass doc = new bpac.DocumentClass();

    // Ouvre le modèle
    doc.Open(strFilePath);

    // Début de la configuration de l'impression
    doc.StartPrint("b-PAC printing test", bpac.PrintOptionConstants.bpoAutoCut);
    
    // Ajoute une tâche d'impression (2 tâches sont imprimées)
    doc.PrintOut(2, bpac.PrintOptionConstants.bpoAutoCut);

    // Fin de la configuration de l'impression (=démarrage de l'impression)
    doc.EndPrint();

    // Ferme le modèle
    doc.Close();
}

Juste pour faciliter la compréhension, je précise le fonctionnement : il faut d'abord créé un "masque de saisie" (une étqiuette : dimension, structure, ..) que l'on ouvre, que l'on rempli et que l'on imprime.
L'imprimante utilisée est une Brother P-Touch 9500pc.

J'ai rajouté également un exemple plus parlant en vba en pièce jointe.

Voila actuellement ce que j'ai fait :

Code : Tout sélectionner

Global $GetFilePath = "C:\Program Files\Brother bPAC3 SDK\Templates\test.lbx"

$oDocBrother = ObjCreate("bpac.Document")

$oDocBrother.Open($GetFilePath)

$oDocBrother.StartPrint "AddressPrint", (bpoAutoCut)
$oDocBrother.DoPrint 
$oDocBrother.PrintOut 1, (bpoAutoCut)
$oDocBrother.EndPrint
$oDocBrother.Close

Si quelqu'un a une suggestion, je suis preneur.

Par avance merci.

[peuchere83]

Bon c bon j'ai trouvé mon erreur :

Code : Tout sélectionner

Global $GetFilePath = "C:\Program Files\Brother bPAC3 SDK\Templates\test.lbx"

$oDocBrother = ObjCreate("bpac.Document")

$oDocBrother.Open($GetFilePath)

$oDocBrother.StartPrint("AddressPrint", 1)
$oDocBrother.DoPrint
$oDocBrother.PrintOut(1, 1)
$oDocBrother.EndPrint
$oDocBrother.Close

J'avais tous implement oublié de déclaré ma variable $bpoAutoCut oui, je suis pas très fier )

Merci quand même