copies pour impression bis

Question

re hello
j'avais donc un probleme pour faire des copies a l'imprimante:
tu choisis le nombre de copie dans la boite de dialogue imprimante et c'est ok mais voila je n'arrivais qu'a sortir 1 seule copie même si j'en demandais au moins 2

frmCarnet.CDL1 est un commondialog
Impression est une sub qui permet de mettre en forme l'impression

With frmCarnet.CDL1
    .CancelError = True
    .copies = 1
    .Flags = cdlPDAllPages + cdlPDHidePrintToFile + cdlPDNoSelection + cdlPDNoPageNums
    .ShowPrinter
End With
If frmCarnet.CDL1.copies < 1 Then frmCarnet.CDL1.copies = 1
MsgBox frmCarnet.CDL1.copies
For Y = 1 To frmCarnet.CDL1.copies
    For X = 0 To Label1.UBound
        Call Impression(Label1(X))
    Next X
    For X = 0 To Label2.UBound
        Call Impression(Label2(X))
    Next X
    For X = 0 To Line1.UBound
        Call Impression(Line1(X))
    Next X
    Printer.EndDoc
Next Y
Exit Sub

seulement y a un hic d'abord car lorque je change le nombre de copies dans la boite de dialogue imprimante et que je verifie le nombre grace a la msgbox + haut c'est toujours 1 copie
bizarre non ????
TB

bebelious · Answer

boujour,
J'ai exactement le m&#234;me probl&#232;me... je n'arrive pas &#224; imprimer plusieurs copies ainsi 
que changer le mode couleur/n&b avec la bo&#238;te de dialogue. J'ai essay&#233; sur plusieurs
imprimantes... idem...

Merci &#224; celui qui r&#233;soudra le probl&#232;me !

BeBeLiOuS

Copies pour impression bis

1 réponse

Discussions similaires