1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
FONCTION ImprimerEtiquette ( bSautDePage_ est un booléen = Faux, bAperçu_ est un booléen = Faux )
QUAND EXCEPTION DANS
iParamètre ( iLargeurPapier, 1050 )
iParamètre ( iHauteurPapier, 1480 )
SI bAperçu_ ALORS
iAperçu ( i100, "Etiquette Laurastar" )
FIN
// DPI 300 : OK
iImprimeImage ( Coll_LaPosteSuisse.gstResultat.iEtiquette, 1, 1, 1050, 1480 )
SI bSautDePage_ ALORS
iSautePage ()
SINON
iFinImprime()
FIN
FAIRE
gstErreurs.sTypeErreur = "E"
gstErreurs.sCodeErreur = "ITE9000"
gstErreurs.sLibelleErreur = ExceptionInfo ( errRésumé )
gstErreurs.sLibelleDétaillé = ExceptionInfo ( errComplet )
ExceptionActive ()
RENVOYER Faux
FIN
RENVOYER Vrai |
Partager