Drukowanie formy

0

Witam
Zrobiłem sobie prosty programik z kilkoma editami (coś ala drukowanie formularzy) białe tło itd. wszystko się pięknie drukuje w banalny sposób (form1.print; :P) tylko jest jeden mały drażniący problem na wydruku widać (zwłaszcza na czcionkach) schodki. Wygląda to jakby z formy robiła się bitmapa a potem była drukowana. Czy wie ktoś w jaki sposób wydrukować forme tak, żeby nie było takiego efektu

0

a próbowałeś opcji

Form1.doublebuffered:=true;

Opcja Form1.print drukuje obszar formy przez Canvas.
Przemyśl opcje tworzenia pliku lub stworz to przy pomocy richedita i drukuj jego zawartość

0
echicken napisał(a)

Wygląda to jakby z formy robiła się bitmapa a potem była drukowana
bo tak wlasnie jest...
bitmapa jest pobierana za pomoca GetFormImage i dopiero potem drukowana...

0

Chyba sie nie rozumiemy ....
Pisze o tym ze na Formie nr 2 mam juz wczytaną bitmapę jako *.jpg Jest to druk przelewu bankowego Wzorzec standard ... Chodzi o to ze przesłane dane z form1 do label'i nie sa drukowane :( Tylko bitmapa jako formularz ... bez danych w label'ach
Dodałem kod :

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  ScaleX, ScaleY: Integer;
  RR: TRect;
begin
  with Printer do
  begin
    BeginDoc;
    // Mit BeginDoc wird ein Druckauftrag initiiert.
    // The StartDoc function starts a print job.
    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
      // Informationen über die Auflösung
      // Retrieves information about the Pixels per Inch of the Printer.
      RR := Rect(0, 0, Form2.Image2.picture.Width * scaleX, Form2.Image2.Picture.Height * ScaleY);
      Canvas.StretchDraw(RR, Form2.Image2.Picture.Graphic);
      // An die Auflösung anpassen
      // Stretch to fit

    finally
      EndDoc;   //Methode EndDoc beendet den aktuellen Druckauftrag und schließt die
      // Textdatei-Variable.
      // Steht in finally - um auch bei Abbruch des Druckauftrages Papierausgabe
      // sicherzustellen
    end;
  end;
end;


end.

I pupa :( Wydruk jest ale tylko formularza ... moze ktoś skrobnie zamiast instrukcji kawałek kodu ?
Z podziekowaniem Amigos

1 użytkowników online, w tym zalogowanych: 0, gości: 1