dalam kesempatan ini sya akan berbagi bagimana caranya membuat tombol prin pada delphi 7
....
nah sekarang copy coding dibawah ini
tapi perhatikan kata-kata dan nama yang telah saya sesuaikan dengan program sy
procedure PrintGrid(sGrid: TStringGrid; sTitle: string);
var
X1, X2: Integer;
Y1, Y2: Integer;
TmpI: Integer;
F: Integer;
TR: TRect;
begin
Printer.Title := sTitle;
Printer.BeginDoc;
Printer.Canvas.Pen.Color := 0;
Printer.Canvas.Font.Name := 'Times New Roman';
Printer.Canvas.Font.Size := 12;
Printer.Canvas.Font.Style := [fsBold, fsUnderline];
Printer.Canvas.TextOut(0, 100, Printer.Title);
for F := 1 to sGrid.ColCount - 1 do
begin
X1 := 0;
for TmpI := 1 to (F - 1) do
X1 := X1 + 5 * (sGrid.ColWidths[TmpI]);
Y1 := 300;
X2 := 0;
for TmpI := 1 to F do
X2 := X2 + 5 * (sGrid.ColWidths[TmpI]);
Y2 := 450;
TR := Rect(X1, Y1, X2 - 30, Y2);
Printer.Canvas.Font.Style := [fsBold];
Printer.Canvas.Font.Size := 7;
Printer.Canvas.TextRect(TR, X1 + 50, 350, sGrid.Cells[F, 0]);
Printer.Canvas.Font.Style := [];
for TmpI := 1 to sGrid.RowCount - 1 do
begin
Y1 := 150 * TmpI + 300;
Y2 := 150 * (TmpI + 1) + 300;
TR := Rect(X1, Y1, X2 - 30, Y2);
Printer.Canvas.TextRect(TR, X1 + 50, Y1 + 50, sGrid.Cells[F, TmpI]);
end;
end;
Printer.EndDoc;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
PrintGrid(StringGrid1, 'Print Stringgrid');
end;
Pages
Kamis, 01 November 2012
Delphi7
Ilmu komputer
23.19
No comments
About Ilmu komputer
Author Description here.. Nulla sagittis convallis. Curabitur consequat. Quisque metus enim, venenatis fermentum, mollis in, porta et, nibh. Duis vulputate elit in elit. Mauris dictum libero id justo.
Langganan:
Posting Komentar (Atom)
Popular Posts
-
Makalah Catatan kaki Catatan kaki adalah daftar keterangan khusus yang ditulis di bagian bawah setiap lembaran atau akhir bab karanga...
-
Fungsi I/O Modul I/O adalah suatu komponen dalam sistem komputer yang bertanggung jawab atas pengontrolan sebuah perangkat luar atau l...
-
Dari soal tersebut terdapat dua kondisi yang mungkin terjadi : 1. Nilai = atau > dari 75 2. Nilai < dari 75 Karena dari soa...
-
Wireless Local Area Network(WLAN) Wireless Local Area Network (disingkat Wireless LAN atau WLAN) adalah jaringan komputer yang menggunaka...
-
Program LInier menggunakan borlan delphi7 Rumus Kongruen Linier : Z i+1 = (a . Z i + c) mod m bilangan random yang dihasilk...
-
Assalamualiakum Wahai sahabat disini saya membuat buku degital yang isinya itu tentang saya dan sahabat semua, juga puisi dari sahabat ...
-
jang mau menikah dengan lelaki pembosan beli motor dinaiki bosan, dijual beli mobil dinaiki bosan, dijual gimana kl nikah punya istri dinaik...
-
SISI MANAJEMEN MANAJEMEN Pemberian otoritas (hak pakai) kepada user · Setiap user akan mempunyai otoritas sesuai de...
-
http://dosenti.blogspot.com/2012_05_01_archive.html
-
Menggunakan komputer/laptop terkadang atau bahkan sering sekali mengalami masalah yang membuat kita tidak nyaman untuk menggunakannya.Bagi...
Tidak ada komentar:
Write komentar