Utiliser les informations d'une imprimante

**ovni76** · 26/04/2020, 17h26

Bonjour,
Suite à un problème matériel j'ai changé d'imprimante et de résolution de 300 à 600.
J'ai développé depuis un certain temps sous linux avec lazarus une petite application pour imprimer des enveloppes de différents formats en utilisant une base de données d'adresses sous sqlite.
Pour l'impression j'utilise les informations hauteur papier, largeur papier, orientation etc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Printer.Orientation:=poLandscape;
  XLARG_PAGE:= Printer.PaperSize.PaperRect.PhysicalRect.Right-Left;  
  XHAUT_PAGE:= Printer.PaperSize.PaperRect.PhysicalRect.Bottom-Top;

Je voudrais utiliser la valeur de la résolution que je peux afficher via le composant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 PrinterSetupDialog.execute

mais je n'arrive pas à récupérer cette valeur de résolution. C'est surement très simple mais je n'ai pas encore trouvé.
Alors un petit coup de main me serait bien utile.
Merci d'avance
A+

**ChPr** · 26/04/2020, 19h09

Envoyé par ovni76

... je n'arrive pas à récupérer cette valeur de résolution. ...

Ces valeurs sont données par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Printer.XDPI
Printer.YDPI

Cordialement.

Pierre.

**Andnotor** · 27/04/2020, 16h53

Pour l'impression (en supposant que ce soit du Windows), le mieux est de convertir le DC de l'imprimante en (centième de) millimètre par SetMapMode.
Tu t'affranchis ainsi de tous les calculs de conversion ET de la résolution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
//Coordonnées en 1/100 mm
SetMapMode(Printer.Canvas.Handle, MM_HIMETRIC);

Attention cependant à l'axe Y qui est inversé. Les valeurs sont négatives :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
//Texte à 10mm des bords
Printer.canvas.TextOut(1000, -1000, 'Texte');

**ovni76** · 27/04/2020, 20h54

Merci pour vos réponses,
Pour Andnotor je suis sous linux donc la solution proposée n'est pas valable et de plus je préfère la solution utilisant les paramètres ce qui va me permettre de modifier mon application pour la rendre plus générale, utilisable avec des imprimantes aux caractéristiques différentes.
Donc je vais utiliser la solution de ChPr qui va dans mon sens.
Encore merci A+

**BeanzMaster** · 27/04/2020, 21h05

Salut voici quelques fonctions qui pourraient t'être utiles :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
{ NOTE :
   1 cm =  37.79527559055 pixels
   1 pixel = 0.02645833333333416 cm
}
function PixelsToCentimeters(nbPixels : Integer) : Double;
begin
  Result := (nbPixels * 0.02645833333333416)
end;
 
function CentimetersToPixels(nbCm : Double) : Integer;
begin
  Result := Round((nbCm / 0.02645833333333416));
end;
 
{ NOTE :
 
  1 pouce (inch) = 2,54 cm
  1 cm = 0,3937 pouce (inch)
}
function InchToCentimeters(nbInch : Double) : Double;
begin
  Result := nbInch / 0.3937;
end;
 
function CentimetersToInch(nbCm : Double) : Double;
begin
  Result := nbCm * 0.3937;
end;
 
function PixelsToMillimeters(nbPixels : Integer) : Double;
begin
  Result := PixelsToCentimeters(nbPixels) * 10;
end;
 
function MillimetersToPixels(nbMm : Double) : Integer;
begin
  Result := CentimetersToPixels(nbMm / 10);
end;
 
function InchToPixels(nbInch : Double) : Integer;
begin
  Result := CentimetersToPixels(InchToCentimeters(NbInch));
end;
 
function PixelsToInch(nbPixels : Integer) : Double;
begin
  Result := CentimetersToInch(PixelsToCentimeters(nbPixels));
end;
 
function PixelsResolutionToCentimeters(nbPixels, DPI : Integer) : Double;
begin
  Result := nbPixels * 2.54 / DPI;
end;
 
function CentimetersToPixelsResolution(nbCm : Double; DPI : Integer) : Integer;
begin
  Result := Round(nbCm * DPI / 2.54);
end;