Jak wydrukowac forme ? trudne nie ma nigdzie :(

Witam wszystkich

Szukalem juz wszedzie i <ort>niemoge </ort>sobie poradzic z tym problemem,

chce wydrukowac forme dokladnie form1

do tej pory uzywalem form1.print, ale pojawil sie problem bo teraz zwiekszylem heighta formy nie <ort>miesic </ort>sie juz ona na pulpicie ale to <ort>niestanowi </ort>probelmu bo <ort>obarazek </ort>po wydruku <ort>spokojnmie </ort>musi sie miescic na formie, problemem jest to ze chce <ort>wydrukwoac </ort>wszystko co znajduje sie na formie1 , wiem ze <ort>meisci </ort>sie na kartce A4 ale problem w tym ze canvas go <ort>nieuchwyca </ort>i co teraz panowie,

jak to zrobic za pomoc printers badz inna metoda by <ort>wydrukwoac </ort>to co jest na formie1 wszytko, bo forma jest wieksza dłuższa niz pulpit...

<ort>Prosz </ort>o pomoc

pozdrawiam

z tego co udało mi się zrozumieć użyj

Form1.PrintScale := PrintToFit;

Kup większą drukarkę...
albo zacznij używać komponentów do drukowania - są chociażby w RaveReports - czyste płótno które możesz rysować, a zarazem wsparcie (z standardowymi opcjami) do drukowania.

no tak ale ja chce wydrukowac to co jest poza obszarem widoku bo <ort>pÓÓÓÓki </ort>co drukuje sie tylko to co jest widoczne a to co poza polem widzenia pulpitu juz nie ;/
prosze o pomoc printscale nie dziala nawet poPropotional (tu bardziej chodzi o opcje visible)

prosze o pomoc

wiesz co, nie wiem jak z drukowaniem i moze to tez kwestia systemu operacyjnego... ale:

jest cs takiego jak form1.GetFormImage - i to zwraca bitmape.

u mnie jest tak ze jesli cos "wyjedzie" po za forme to go nie uchwyci na bitmapie.
jesli jednak forma bedzie miala odpowiednia wysokosc ale czesc formy bedzie sie znajdowac po za obszarem pulpitu to i tak zostanie uchwycone na bitmapie.

sprawdz jak to jest u Ciebie.

chociaz jesli dobrze pamietam to form1.print korzysta lasnie z GetFormImage...

aaa... chyba wiem gdzie moze lezec problem...

czy jestes pewien ze forma ma taki height jaki ustawiles? bo u mnie system ogranicza wysokosc formy do wysokosci pulpitu...

sprawdz:

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Top:=0;
form1.Height:=9000;
showmessage(inttostr(form1.Height));
end;

mi wyswietla 812, zamiast 9000 czyli system ograniczyl wielkosc okna :-P

sorry, to znowu ja ;]
sporobuj ustawic BorderStyle na bsNone.

<ort>dziekuwa </ort>wsytaczylo samo bsDialog;)) pzdr maci u mnei po szklance koli :P pzdr

wysokosc Twojej formy zostaje prawdopodobnie ograniczona przez system. sproboj daj borderstyle na bsNone.

//moge wiedziec dlaczego moje wczesniejsze posty zostaly usuniete? :|

o a teraz sa. ehh.. cos sie forum pietrusi :-P