Bonjour Joël Keutgen
Message du 2006-01-12 16:23:
Bonjour à tous,
Malgré plusieurs tentatives, je ne parviens pas à écrire une macro qui
soit capable d'imprimer sur une imprimante virtuelle (type Pdf
converter) puis sur une autre. Grâce à l'enregistreur de macros, j'ai
actuellement deux macros qui chacune fonctionne. Si je combine ces deux
macros soit au moyen de l'enregistreur, soit en les faisant s'exécuter
l'une puis l'autre via une 3° macro, mon OOo 1.1.3 (sous Linux Fedora
Core) se ferme et la 3°macro qui vient d'être écrite est supprimée (sans
doute lors de la fermeture d'OOo).
C'est probablement parce que le premier job n'est pas encore terminé
avant l'envoi du second. Essaie ceci:
sub print_virtuel_et_REEL
print_ticketting
attenteFin
print_PRT23
end sub
Sub attenteFin
Dim infosImprimante As Variant, recommencer As Boolean, x As Long
Do
wait(100)
infosImprimante = thisComponent.Printer
for x = 0 to UBound(infosImprimante)
if infosImprimante(x).Name = "IsBusy" then
recommencer = infosImprimante(x).Value
end if
next
Loop Until not recommencer
End Sub
Bernard
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
