Drukowanie Image bez Image

Mam scan obrazka na formie umieściłem go w Componecie Image na Image umieściłem kilka Editów chciałbym:

• zrobić podgląd wydruku
• wydrukować to wszystko lecz bez drukowania image ale żeby edity były w odpowiednim miejscu po wydrukowaniu

Cos nie jasne napiszcie to wyjaśnię dokładniej

Pozdro

miło, że nam powiedziałeś co masz i co byś chciała ale zapomniałeś chyba zadać pytania....
BTW żeby wyprzedzić najbardziej prawdopodobny tok tego wątku to najpierw POSZUKAJ!

Mam prostu Scan nazwijmy to dyplomu i mam do wypelnienia ich okolo 20 i to jest dosc czesto dlatego tez chialbym zrobic program ktory wypelnialby mi to na forimie umiescilem Image tylko dla wobrazenia sobie gdzie sa puste pola. Chcialbym zeby tylko to co wpisze w Editach zostalo wydrukowane. Wielkosc Dyplomu jest A4 i nie wiem jak to po prostu wydrukowac i jeszcze zeby zachowac proporcje oraz zeby text wpisany w Editach był w odpowienich miejsca po wydrukowaniu formy.

1. zmież sobie dokładnie, co do mm położenie i wymiary wszystkich pól na text
2. pobierasz DPI drukarki (GetDeviceCaps(Printer.Handle, LOGPIXELSX))
3. przeliczas położenie i rozmiar każdego "wirtualnego edita" na pixele
   x, y - wsp. w mm na kartce
   w, s - wys i szer w mm na kartce
   xp = x * (10 / 254 * DPI);
   yp = y * (10 / 254 * DPI);
   wp = w * (10 / 254 * DPI);
   sp = s * (10 / 254 * DPI);
   tworzysz sobie z tego rect

var
r: TRect;
s: String;
...
begin
...
rect.Left := xp;
rect.Right := xp + sp;
rect.Top := yp;
rect.Bottom := yp + wp;

//i rysujesz text w tym obszarze + wyrównanie

Printer.Canvas.Font.Name := 'nazwa czcionki';
Printer.Canvas.Font.Style := [fsBold, fsItalic, fsUnderLine]; //oczywiście nie wszystkie muszą być zaznaczone
Printer.Canvas.Font.Size := 20; //rozmiar czcionki

Printer.BeginDoc; //rozpoczęcie wydruku

s := 'text do drukowania';
DrawText(Printer.Canvas.Handle, PChar(s), Length(s), rect, DT_CENTER);
*DT_CENTER - to wyśrodkowanie textu, więcej tu http:*msdn2.microsoft.com/en-us/library/ms533909.aspx

//następna linia
Printer.EndDoc; //zakończenie i fizyczne wysłanie wydruku na drukarkę

Dzięki serdeczne za ten kod Misiekd ale czy wiesz jak wydrukowac ten tekst pionowo (obrocic o 90 stopni w prawo) a nie poziomo ?

http://4programmers.net/Forum/313492?h=logfont#id313492

Dziekuje Misiekd jestes bardzo serdeczny i postaram sie lepiej precyzowac moje pytania. See ya 'round