Discussion :

[DadouK]

Bonjour, actuellement je travaille sur une application vba (excel ) qui est reliée à un système bien ancien ; ainsi toutes les fonctions sont développées en vb .
Mon problème est que j'ai un module qui cherche les doublons par rapport à un projet proposé selon une date, que j'ai fixée en n-2.
Le grand souci est que le système doit émettre un papier à la fin de son traitement, or lorsque la fonction de suppression des doublons dépasse une page il n'imprime que la première, et je ne trouve pas cette précision dans le code.

Merci pour votre aide.

[Minick]

Salut,

Sans un bout de code cela va etre difficile.

Mais a tout hasard, n'y aurait-il pas une zone d'impression de definie
dans la feuille a imprimer
Sous xl2003, Menu -> Fichier/Mise en page/Feuille et zone d'impression

[DadouK]

Non, il n'y a pas de zone d'impression, mais voici le code où il évoque le mot print, mais je ne comprends pas où il précise une seule page ou la première :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
33
34
35
36
37
38
39
40
41
42
43
FNfile = FreeFile
    Open fic_capture For Output As FNfile
    Close #FNfile
 
    FNfile = FreeFile
    Open Fic_script For Output As #FNfile
    Print #FNfile, "[SENDFONC] FONC='CLEAR';"
    Print #FNfile, "[SEND] Pos=9999; Data='TI040 3';"
    Print #FNfile, "[SENDFONC] FONC='ENTER';"
    Print #FNfile, "[SEND] Pos=508; Data='" & cp & "';"
    Print #FNfile, "[SEND] Pos=668; Data='" & mot & "';"
    Print #FNfile, "[SEND] Pos=1413; Data='1';"
    Print #FNfile, "[SENDFONC] FONC='ENTER';"
    Print #FNfile, "[ECRAN] Pos=1865; Stop=1868; Data='" & fic_capture & "';"
    Close #FNfile
 
    retourAria = Aria(Fic_script, ACTIVATE_WIN, nRet, "")
 
    FNfile = FreeFile
    Open fic_capture For Input As #FNfile
    Input #FNfile, str
    Close #FNfile
 
    On Error GoTo No_proposition
    nbResult = CDbl(str)
 
    i = 0
    While i < nbResult And i < 20
        Rows(pos + 1).Insert Shift:=xlDown
 
        FNfile = FreeFile
        Open fic_capture For Output As FNfile
        Close #FNfile
 
        FNfile = FreeFile
        Open Fic_script For Output As #FNfile
        Print #FNfile, "[SEND] Pos=" & (i + 3) * 80 + 1 & "; Data='s';"
        Print #FNfile, "[SENDFONC] FONC='ENTER';"
        Print #FNfile, "[ECRAN] Pos=161; Stop=1980; Data='" & fic_capture & "';"
        Print #FNfile, "[SENDFONC] FONC='PF7';"
        Close #FNfile
 
        retourAria = Aria(Fic_script, ACTIVATE_WIN, nRet, "")

Merci

[Minick]

Re,

Le Print dans ce code ne signifie pas d'imprimer mais d'ajouter dans un fichier
(type txt)

Ce n'est pas dans ce code, recherche PrintOut.

[DadouK]

Oui , tu avais raison, j'ai trouvé ça dans un autre module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
afficherEnre "Proposition", 2
            Feuil2.PrintOut To:=1
            Feuil4.PrintOut from:=1, To:=1
            tour2
            Dim i As Integer
            i = 2
            While Feuil9.Cells(i, 2) <> Feuil5.Cells(2, 2)
                i = i + 1
            Wend
 
            etablissementSynthèse "Archive", i
            Feuil11.PrintOut from:=1, To:=1

J'ai changé to = 1 à 3 parce que ce sont les pages des imprimantes ??

Mais ça ne marche pas ??!!

Merci d'avance.

[Minick]

Re,

Si tu ne precises pas From et To, il imprimera toutes les pages.