Gambas France BETA


Pas de compte ? Incription

impression sur printer

Ce sujet est résolu.

1
AuteurMessages
archi12#1 Posté le 11/5/2015 à 17:22:07
bonjour à tous,
Malgré les differentes doc ou examples, GB2, GB3, GB?? je ne comprends pas comment écrire du texte (ligne par ligne) sur mon imprimante Epson DX4450.
Je suis avec Gambas 3.7.1 sur Mint 17.
QQ'un pourrait-il m'indiquer les quelques instructions nécessaires pour imprimer "bonjour" sur une ligne, puis "au revoir" sur une autre, sur cette imprimante ?
Un petit example vaut mieux qu'une vaine recherche.
Merci de votre aide.
Reivillo#2 Posté le 11/5/2015 à 17:39:31
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Bonsoir archi12.

Et si tu nous montrais le Code que tu Teste actuellement?
Je précise... la Partie Impression!

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 LÀ.
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
Gambette#3 Posté le 11/5/2015 à 18:36:29
bonjour Archi,

Si ça peut t'aider, sous Gambas il y a un exemple nommé Printing.
vuott#4 Posté le 12/5/2015 à 13:16:44
Ne cedere ineluctabili possimus
...les quelques instructions nécessaires pour imprimer "bonjour" sur une ligne, puis "au revoir" sur une autre


Bonjour Archi,


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
PRIVATE Impressorium AS Printer


PUBLIC SUB Form_Open()

Impressorium = NEW Printer AS "Printer"

END


PUBLIC SUB Button1_Click()

WITH Impressorium
.Orientation = .Portrait
.Paper = .A4
.Print
END WITH

END


PUBLIC SUB Printer_Draw()

WITH Paint

' if you want to set font size:
.Font.Size = 18

' The text will be aligned to the "virtual" quadrilateral placed to coordinates X, Y and dimensions W, H:
.DrawText("Bonjour\nau revoir", 500, 1000, 400, 500)
.End

END WITH

END
« Vita non suavis esse potest, nec Mors amara. »
archi12#5 Posté le 13/5/2015 à 08:53:40
Merci à tous
Vuott : clair, rapide, répondant à la question, efficace ! bravo !
Cela confirme qu'un petit exemple ...
Merci encore
Reivillo#6 Posté le 13/5/2015 à 10:16:31
C' est ici, et nul part ailleurs. « Et pis c'est tout ! »Merci, de mettre ton sujet en Résolu.
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 LÀ.
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
vuott#7 Posté le 13/5/2015 à 11:46:31
Ne cedere ineluctabili possimus
Vuott : clair, rapide, répondant à la question, efficace ! bravo !


Merci, archi12. :bounce:

Addendum:

If you want coloured printing, you have to add .GrayScale property and to set it to False.

Example:

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
PRIVATE Impressorium AS Printer


PUBLIC SUB Form_Open()

Impressorium = NEW Printer AS "Printer"

END


PUBLIC SUB Button1_Click()

WITH Impressorium
.Orientation = .Portrait
.Paper = .A4
.GrayScale = FALSE
.Print
END WITH

END


PUBLIC SUB Printer_Draw()

WITH Paint

' if you want to set font size:
.Font.Size = 18

.Brush = Paint.Color(Color.Red)

' The text will be aligned to the "virtual" quadrilateral placed to coordinates X, Y and dimensions W, H:
.DrawText("Bonjour\nau revoir", 500, 1000, 400, 500)
.End

END WITH

END
« Vita non suavis esse potest, nec Mors amara. »
1