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
- Rejestracja:około 20 lat
- Ostatnio:około 13 lat
0
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
cimak
po 5ciu latach odkopales?
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.