Drukowanie formy

Odpowiedz Nowy wątek
2006-08-25 10:34
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


Łukasz Kowalski

Pozostało 580 znaków

2006-08-25 17:44
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ść


Tomasz Andrzejewski
Delphi (XE3-XE7) framework engineer @ InterLan
MCP: Microsoft SQL Server 2008, Implementation and Maintenance

Pozostało 580 znaków

2006-08-25 20:20
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...

Pozostało 580 znaków

2011-11-08 13:36
Henryk555
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

edytowany 1x, ostatnio: lofix, 2016-12-13 18:26
po 5ciu latach odkopales? - cimak 2011-11-08 16:33

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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