Discussion :

[LeMin]

Bonjour à tous,

j'ai un état qui écrit sur une imprimante code barre.
Quand je suis avec la version complète Access, l'impression est correcte.
Lorsque je passe par le Runtime, l'impression est décalée.

Une idée ?

Merci pour vos lumières

[argyronet]

Bonjour,

il n'y a pas de différence notoire entre MSAccess version complète et Runtime en tout cas concernant les impressions, à ma connaissance.
Par quoi se traduit ce décalage ?

Argy

[LeMin]

Cette étiquette est collée sur chaque livre.
Elle est de taille env 4*2 cm .
J'imprime 2 lignes de texte (Nom du livre, nom de l'auteur) ainsi qu'une ligne de code barre (référence du livre).

Quand on utilise le runtime, une partie de la fin de l'étiquette est imprimé sur l'étiquette suivante.

[argyronet]

Bonjour,

Je vous proposerais volontiers de poser un bouton transparent (affiché avec le MouseMove sur Button=2 et Shift=2) puis Clic gauche qui appelle cette procédure sur :

1. la version complète
2. la version runtime

Le but étant de voir si vous avez les mêmes paramètres d'impression sur les deux applications ouvertes sur chaque environnement si évidemment c'est le même type d'imprimante ; sinon, il faut reparamétrer votre rapport.

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
 
Public Sub GetPrinterFeatures()
Const TWIPS_MM                                         As Integer = 567
Dim AnyPrinter                                         As Printer
Dim strBuffer                                          As String
    p = -1
    For Each AnyPrinter In Application.Printers
        p = p + 1
        Set AnyPrinter = Application.Printers(p)
        With AnyPrinter
            strBuffer = "Imprimante : " & .DeviceName & vbCrLf & "Pilote : " & .DriverName & vbCrLf & "Port: " & .Port & vbCrLf
            strBuffer = strBuffer & vbTab & " => Marge haut = " & Round((.BottomMargin) / TWIPS_MM, 2) & vbCrLf
            strBuffer = strBuffer & vbTab & " => Marge bas = " & Round((.BottomMargin) / TWIPS_MM, 2) & vbCrLf
            strBuffer = strBuffer & vbTab & " => Marge gauche = " & Round((.LeftMargin) / TWIPS_MM, 2) & vbCrLf
            strBuffer = strBuffer & vbTab & " => Marge droite = " & Round((.RightMargin) / TWIPS_MM, 2) & vbCrLf
            strBuffer = strBuffer & vbTab & " => Marge bas = " & IIf(.orientation = 2, "Paysage", "Portrait") & vbCrLf
            strBuffer = strBuffer & vbTab & " => Colonne Horizontal = " & IIf(.ItemLayout = 1953, "Colonnes tracées H puis V", "Colonnes tracées V puis H") & vbCrLf
            strBuffer = strBuffer & vbTab & " => Hauteur de la section  = " & Round((.ItemSizeHeight) / TWIPS_MM, 2) & vbCrLf
            strBuffer = strBuffer & vbTab & " => Largeur de la section  = " & Round((.ItemSizeWidth) / TWIPS_MM, 2) & vbCrLf
            strBuffer = strBuffer & vbTab & " => Taille papier = " & IIf(.PaperSize = 9, "A4 (210 x 297 mm)", "Autre taille") & vbCrLf
            strBuffer = strBuffer & vbTab & " => Bac à papier = " & .PaperBin & vbCrLf
            strBuffer = strBuffer & vbTab & " => Espacement = " & .RowSpacing & vbCrLf
            strBuffer = strBuffer & vbTab & " => Taille par défaut (section de détail) = " & .DefaultSize & vbCrLf
            strBuffer = strBuffer & vbTab & " => Recto/Verso = " & Choose(.Duplex, "Impression recto", "Impression recto verso", "Impression recto verso (+RBL)")
        End With
        MsgBox strBuffer
    Next
End Sub

Si tel n'est pas le cas, il y a sans doute quelque chose à corriger coté Report et son imprimante affectée.

Argy

[LeMin]

Bonjour,
merci pour ton intérêt à mon problème
Si je comprends bien, le click sur le bouton m'affichera les caractéristiques des imprimantes déclarées sur le poste.

En fait, je lance le runtime et la version complète sur le même poste.
Ils devraient donc avoir les mêmes caractéristiques d'imprimante ou je fais erreur ?

Et j'ai oublié de préciser que le soft est développé en access 2007.
Le runtime qui poste pb sur l'impression étiquette est le runtime 2007
et quand je teste sur cette machine , j'utilise la version access 2016.
Jean-Louis.

[argyronet]

1. Oui
   
2. Ah... et pourquoi pas le Runtime 2016 ?

Y a t-il une raison ?


Argy