Impression d'une proposition

Version imprimable

31/03/2010, 10h55
DadouK

Impression d'une proposition

:oops:
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.

:cry:
31/03/2010, 11h01
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

Reponse

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:

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 :calim2:

31/03/2010, 14h07
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.

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

Code:

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.

31/03/2010, 15h19
Minick

Re,

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

Justement je viens de le tester avec un :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
afficherEnre "Proposition", 2
            Feuil2.PrintOut To:=1
            Feuil4.PrintOut from:=1, To:=3
            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:=3

=> ce code m imprime toutes les pages or que moi j'ai uniquement besoin de m imprimer plus qu'1 dans le cas ou la feuille4 depasse une page ainsi il faut ajouter un controle ???!!

Merci d 'avance

31/03/2010, 15h56
Minick

Ok,
Je n'avais pas compris comme ça.
Effectivement, il va falloir faire un contrôle avec HPageBreaks par exemple.

Je ne sais pas s'il y a plus simple...
31/03/2010, 16h50
DadouK

Re

J'ai enlevé toute la partie to et from ; or que ça m imprime des pages vides et ca sert à rien , je trouve pas le contrôle nécessaire???

Salut,

Un essai, cette fonction te retourne le nombre de pages
en considerant que si il n'y a pas de donnees dans la colonne A sur la ligne
du saut de page il n'y a plus rien a imprimer.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function NbPages(Sht As Worksheet) As Integer Dim hPB As HPageBreak For Each hPB In Sht.HPageBreaks If hPB.Location.Value <> "" Then NbPages = NbPages + 1 Next hPB If NbPages <> 0 Then NbPages = NbPages + 1 Else If Application.WorksheetFunction.CountA(Sht.UsedRange) <> 0 Then NbPages = 1 End If End Function
Pour l'appel dans ton cas ca donnerait:

Code:

NbPages(Feuil4)

01/04/2010, 12h15
DadouK

Re

Bonjour ,

J'ai testé ta fonction , elle marche à merveille , Merci beaucoup

Merci de m'avoir aidé ;)
:oops:

Bonne journée
Bon courage à+++++