[Delphi] Potrebuji poradit s tiskem

[Lopan]

Mam jako podklad StringGrid a na nem nezavisle vykresluji pres canvas, coz me umoznuje vlastni formatovani kazde bunky nezavisle na ostatnich.

Ale ted je problem ze to potrebuji vytisknout a nevim jak.

Zkousel jsem to pres RichEdit, ze jsem do neho postupne dal vsechny udaje ze StringGrid i s formatovanim ale potreboval bych treba oramovat jeden radek a to ten RichEdit neumi.

Takze bych potreboval poradit jak zaridit tento tisk, nemate nekdo s necim podobnym zkusenosti?

[KtK]

pokud me pamet neklame, ve VB se nechal formular sejnout jako bitmapa a vytisknout (form.printform(), pokud si pamatuju) Pravda je, ze to fungovalo pekne blbe.. Ale zkus pohledat, treba delphi umi neco podobnyho..

[Lopan]

pokud me pamet neklame, ve VB se nechal formular sejnout jako bitmapa a vytisknout (form.printform(), pokud si pamatuju) Pravda je, ze to fungovalo pekne blbe.. Ale zkus pohledat, treba delphi umi neco podobnyho..

No to je prave zpusob kterym to nechci resit. By se me tam tisklo hodne veci navic a nemohl bych tam dat hlavicku. Resit to upravami celeho formu me prijde hodne neefektivni.

[KtK]

pokud me pamet neklame, ve VB se nechal formular sejnout jako bitmapa a vytisknout (form.printform(), pokud si pamatuju) Pravda je, ze to fungovalo pekne blbe.. Ale zkus pohledat, treba delphi umi neco podobnyho..

No to je prave zpusob kterym to nechci resit. By se me tam tisklo hodne veci navic a nemohl bych tam dat hlavicku. Resit to upravami celeho formu me prijde hodne neefektivni.

udelej si kopii-i s hlavickou atd.. ale je to hodne velka prasecina..

[XOR]

Můžeš využít unitu Printers (přidej ji do USES)

malá ukázka :

procedure TForm1.Button1Click(Sender: TObject);
var
v, h, y, x : integer;
PixelsPerInchX, PixelsPerInchY :integer;
begin
if Printer.Printers.Count = 0 then
begin
MessageDlg('Tiskárna není přítomna!', mtError, [mbOK],0);
Exit;
end;

Printer.BeginDoc;
PixelsPerInchX := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSX);
PixelsPerInchY := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);

y := 0;
v := (10 * PixelsPerInchX) div 254; //přepočítá rozlišení tiskárny
h := (10 * PixelsPerInchY) div 254;

for x := 1 to StringGrid1.rowcount-1 do
begin
application.processmessages;
with printer.canvas do
begin
pen.color := clBlack;
font.height := 7*h;
font.style := [fsBold];
textout(v*10,(7+y)*h, StringGrid1.cells[1,x]);
brush.Style := bsclear;
RECTANGLE(v*2,(5+y)*h,v*100,(15+y)*h);
end;
y := y+10;
end;

printer.EndDoc;
end;

[Gargamel]

Jojo, kresleni primo na Canvas, to je asi nejjednodussi a nejefektivnejsi reseni... (je k tomu ale potreba napsat efektivni algoritmus pro kresleni, jinak se z toho clovek zblazni)
Kdysi jsem k tomu napsal komponentu vcetne preview, takze kdyby ji nekdo chtel, tak se hlaste!

[Lopan]

Jojo, kresleni primo na Canvas, to je asi nejjednodussi a nejefektivnejsi reseni... (je k tomu ale potreba napsat efektivni algoritmus pro kresleni, jinak se z toho clovek zblazni)
Kdysi jsem k tomu napsal komponentu vcetne preview, takze kdyby ji nekdo chtel, tak se hlaste!

Jaaa se hlasim usetrilo by me to hodne prace, kdyz tak mail rlopan@seznam.cz diky.

4XOR: take moznost, dik za info

[viki_]

Tak si to naklikej v tom Delfackem QuickReportu, nebo co tam ted do toho misto toho davaji (RaveReport ?) - to je prace na par minut.

[Lopan]

Tak si to naklikej v tom Delfackem QuickReportu, nebo co tam ted do toho misto toho davaji (RaveReport ?) - to je prace na par minut.

Fiiha, to jsem ani nevedel ze ten tisk v delphi pujde resit tolika zpusoby.

Jen takovy dotaz. Muzu ten report definovat runtime? Nemusi se pro to na komp kde neni Delphi instalovat soft navic?

[viki_]

Tak si to naklikej v tom Delfackem QuickReportu, nebo co tam ted do toho misto toho davaji (RaveReport ?) - to je prace na par minut.

Fiiha, to jsem ani nevedel ze ten tisk v delphi pujde resit tolika zpusoby.

Jen takovy dotaz. Muzu ten report definovat runtime? Nemusi se pro to na komp kde neni Delphi instalovat soft navic?

Je to jako u vseho ostatniho - vsechno se zkompiluje do jednoho exe (pokud nedelas build s "runtime packages").

[Jaro Benes]

Můžeš zkusit Khojastehův náhled TPreview. Taky se kresí na Canvas ale je to elegantnější než použít jen Printers i když trošku složitější než když použiješ rovnou QR.