1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

uses
printers


function getpix_x(cm:real):integer;
var ppi:Integer;
i:real;
begin
ppi:=  GetDeviceCaps(printer.Handle,LOGPIXELSX);
i:= (ppi * cm) / 2.54;
result:= round(i+0.5);
end;

function getpix_y(cm:real):integer;
var ppi:Integer;
i:real;
begin
ppi:=  GetDeviceCaps(printer.Handle,LOGPIXELSY);
i:= (ppi * cm) / 2.54;
result:= round(i+0.5);
end;					

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:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  x,y,i:Integer;
begin
  with Image1.Canvas do begin
    ShowMessage(IntToStr(getpix_x(18)));
    for x:=0 to getpix_x(18) do Pixels[x,0]:=clBlack;
    for x:=0 to getpix_x(18) do Pixels[x,getpix_y(7.7)]:=clBlack;

    for y:=0 to getpix_y(7.7) do Pixels[0,y]:=clBlack;
    for y:=0 to getpix_y(7.7) do Pixels[getpix_x(18),y]:=clBlack;

  {  for i:=1 to 30 do
      for y:=0 to 289 do
        Pixels[i*22,y]:=clBlack;

    for x:=0 to 681 do
      Pixels[x,144]:=clBlack;

    for x:=0 to 681 do
      Pixels[x,263]:=clBlack;

    for i:=1 to 61 do
      for y:=263 to 289 do
        Pixels[i*11,y]:=clBlack;

    for x:=0 to 681 do
      Pixels[x,277]:=clBlack;}
  end;
end;					

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:
60:
61:
62:
63:
64:
65:
66:
67:
68:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,printers;

type
  TForm1 = class(TForm)
    bt_ellipse: TButton;
    Image1: TImage;
    bt_print: TButton;
    procedure bt_ellipseClick(Sender: TObject);
    procedure bt_printClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

function getpix(cm:real):integer;
var ppi:Integer;
i:real;
begin
ppi:=  GetDeviceCaps(printer.Handle,LOGPIXELSX);
i:= (ppi * cm) / 2.54;
result:= round(i+0.5);
end;

{$R *.dfm}

procedure TForm1.bt_ellipseClick(Sender: TObject);
begin
Image1.Canvas.Ellipse(Image1.ClientRect);
end;

procedure TForm1.bt_printClick(Sender: TObject);
var rect:Trect;
begin
// Also, zuerst das Rechteck für das Etikett der CD boy berechnen

rect.Left:=0; //
              // obere linke Ecke
rect.Top:=0;  //


rect.Right:=getpix(5); // sagen wir einfach mal das das Etikett 5 cm breit ist
rect.Bottom:=getpix(2.5); // damit das Bild nicht verzerrt wird müssen die Breite
                          // un die Länge proportional zu deinem Image sein



with printer do
begin
BeginDoc;
Canvas.StretchDraw(rect,Image1.Picture.Bitmap); //jetzt mit Stretchdraw auf das
                                                //Drucker Canvas
enddoc;
end;
end;

end.