Gambas France BETA


Pas de compte ? Incription

Printer.Landscape

1
AuteurMessages
lapenduledargent#1 Posté le 29/1/2014 à 07:02:46
Bonjour,

Avec mon imprimante dymo, j'imprime sans soucis mes code barre en portrait.
Lorsque je me mets en Landscape, j'ai mon code barre qui s'imprime grossièrement :(

Je fais un test avec inkscape en faisant une rotation de 90° du test et là c'est ok

Donc dans mon code, en impression portrait je fais Paint.Rotate(Rad(90)) mais rien ne change, mon texte est toujours horizontal ?

Voilà mon 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
44
45
46
47
PUBLIC SUB Button29_Click() 'imprimer etiquette verticale
DIM pPrinter2 AS NEW Printer AS "pPrinter"

pPrinter2.Paper = Printer.Custom
pPrinter2.PaperHeight = 57
pPrinter2.PaperWidth = 57
pPrinter2.Name = "LabelWriter-450"
pPrinter2.Orientation = Printer.portrait
pPrinter2.Configure
pPrinter2.Print

END

PUBLIC SUB pPrinter2_begin()

application.Busy = 1

END

PUBLIC SUB pPrinter2_Draw()

Paint.Rotate(Rad(90))

paint.Font = Font["Free 3 of 9 Extended,20"]
Paint.Text(Ref_CodeBarre, 1, 2, 0, 0, align.Left)

Paint.Font = Font["Bitstream Vera Serif,Bold,Underline,10"]
Paint.Text("Désignation:" 35, 29, 0, 0, align.left)
Paint.Font = Font["Bitstream Vera Serif,8"]
Paint.Text(Designation, -14, 39, 0, 0, align.left)

Paint.Font = Font["Bitstream Vera Serif,Underline,10"]
Paint.Text("Réf longue:" 30, 54, 0, 0, align.left)
Paint.Font = Font["Bitstream Vera Serif,10"]
Paint.Text(Ref_longue, 35, 69, 0, 0, align.left)

Paint.Fill

END


PUBLIC SUB pPrinter2_End()

label89.Text = "Etiquette imprimée"
application.Busy = 0

END


Une idée ?

Pierre
Reivillo#2 Posté le 29/1/2014 à 09:34:42
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonjour lapenduledargent.

je fais Paint.Rotate(Rad(90)) mais rien ne change
Tu n'aurais pas un Problème de Conversion:< Degré/Radian voir Radian/Degré >.

Je crois avoir déjà vu ce genre de soucis,
sur ce Forum, dans un contexte différent.
Fait des recherche sur le Forum,
avec les mots Degré et Radian.

ICI, par Exemple.

Reivillo.






Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr .
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
Reivillo#3 Posté le 29/1/2014 à 10:13:01
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Voir par là aussi
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr .
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
lapenduledargent#4 Posté le 29/1/2014 à 15:06:07
Bonjour Reivillo,

Je viens d'essayer avec ça :

Paint.Rotate(1.5)

Comme cela, pas d'erreur avec les radians mais ça change rien ?

Ici c'est du texte, pas une image et je me demande si c'est possible de tourner un texte avec paint.rotate
Reivillo#5 Posté le 29/1/2014 à 19:53:34
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »
Paint.Rotate(1.5)
C'est pas plutot Paint.Rotate(rad(1.5))
Version LinuxMint 13 (1.6.1-1+maya-mate(32-bit)) LTS Noyau 3.14.33-031433-generic (27-02-2015)
LinuxMint 13 Mate Fr ICI, LinuxMint 17 Mate Fr .
Programmation Gambas3 Installé depuis la Console Terminal avec successivement: Les 3 Lignes sudo en Gras ci-dessous...
sudo add-apt-repository ppa:gambas-team/gambas3
sudo apt-get update
sudo apt-get install gambas3 -y
Gambas3.8.4-57.47 (Mise à Jour Auto via mintupdate le 28-01-2016)
Pour la Doc, c'est vers là: Documentation Gambas3 FR
lapenduledargent#6 Posté le 29/1/2014 à 20:24:03
Rien n'y fait, même pas une petite erreur !
La seule chose qui marche c'est de changer pPrinter2.Orientation = Printer.portrait en Printer.Landscape

Mais dans ce cas, j'ai mon code barre qui s'imprime de mauvaise qualité ?

Bonne soirée

Pierre
Flachy Joe#7 Posté le 30/1/2014 à 19:16:50
Iguane : Il Gambas Uniquement pour Activer ses NEuronessalut,
Est-ce que tu ne peux pas dessiner dans une image que tu recopie ensuite dans le printer ?

;) Flachy Joe ;)
lapenduledargent#8 Posté le 30/1/2014 à 21:54:46
Bonsoir,

Oui, c'est certainement la solution mais comment faire ?
C'est du texte, j'utilise déjà paint.

1
2
3
4
Paint.Font = Font["Bitstream Vera Serif,Bold,Underline,10"]
Paint.Text("Désignation:" 35 29 0 0 align.left)
Paint.Font = Font["Bitstream Vera Serif,8"]
Paint.Text(Designation, -14, 39, 0, 0, align.left)

1