Discussion :

[Baquardie]

Je suis programmeure en VB6 et nous utilisons un contrôle appelé Formula One 6.1 qui permet de reproduire un chiffrier de la même manière qu'excel.

Pour imprimer les données, j'utilise une fonction implémentée dans formula one : object.FilePrint. Et voici la description donnée dans l'aide au sujet de cette fonction :

Description

Prints the selected worksheet.

Les usagers du logiciel que j'ai développé impriment toujours leur document sur du papier 8 1/2X14. Lorsqu'ils font un print preview, il est clair que le document sera imprimé sur du 8 1/2X14.

Mais voilà, fréquemment (mais pas systématiquement), lorsqu'ils vont chercher le résultat à leur imprimante, ils retrouvent leur document imprimé sur du papier 8 1/2X14 mais en format 8 1/2X11... Le format de papier physique est bon, mais les données sont toutes tassées pour former une feuille 8 1/2X11 ...

Le système d'exploitation diffère d'un usager à un autre (XP, 2000). L'imprimante n'est pas la même non plus, elle diffère d'un département à un autre. Je m'arrache les cheveux parce que je recois des appels d'usagers impatients et mécontents parce qu'ils ne peuvent pas imprimer sur du format légal...

Et je ne sais pas pourquoi cela fait ca!

Est-ce que quelqu'un aurait une idée, un point de départ vers lequel me diriger... Merci à l'avance!!

[zazaraignée]

Salut

Fais un tour dans l'aide de VB. En passant par la collection d'objets Printers, tu devrais pouvoir modifier les paramètres d'impression.

Dans ton contrôle Formula One, regarde s'il n'y aurait pas une propriété, méthode ou autre truc qui ressemblerait à un Page Setup.

Si tu ne trouves rien, fais nous signe.

Bonnes fouilles!

[Baquardie]

Bonjour zazaraignée

Merci de ta réponse.

Oui il y a un pagesetup que j'utilise deja d'ailleurs. Lorsque l'usager appelle l'impression, je fais des mofifications de setup. Je modifie entre autre la valeur du "papersize" afin qu'il soit déjà en legal. Je modifie également l'en-tête, le bas de page, la zone d'impression, les coupures de page ainsi que plein d'autres petits options. Toutes ces options sont appliquées lorsque j'imprime.

Voici en gros ce à quoi ressemble le code du pagesetup

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
Dim psCurrent As F1PageSetup
Dim pdetail as Object
 
'Applique les settings a l'object d'impression
Set psCurrent = pdetail.GetPageSetup
 
With psCurrent
    .Header = strHeader
    .Footer = "&B" & "Page " & "&P" & " " & TraduireMessage(35) & " " & "&N"
    .Landscape = True
    .LeftToRight = True
    .FitPages = True
    .PrintScale = 100
    .PagesTall = iNbrePages
    .PagesWide = 1
    .ColHeadings = False
    .RowHeadings = False
    .PaperSize = F1PaperLegal
    .GridLines = True
    .PrintTitles = "A1:IV1"
    .PrintArea = strArea
    .BlackAndWhite = True
End With
 
pdetail.SetPageSetup psCurrent

La seule chose qui ne fonctionne pas c'est le format de papier. L'imprimante sélectionne bien le format de papier 8¼X14 mais imprime en format 8½X11... Et avais-je mentionné dans mon post original que c'est un probleme intermittant? Sur ma machine ca fonctionne, sur le pc d'un usager ca ne fonctionne pas, sur la machine de l'autre usager cela fonctionne la moitié du temps etc....

Pour ce qui est de la collection d'objet d'impression j'avais deja essayé de m'y mettre lorsque la version de formula one ne supportait pas le changement de format de papier et j'avais trouvé ca assez compliqué merci... J'avais laissé tombé lorsque formula one nous a vendu une version qui supportait le format de papier.