kk tau ga c gimana cara ny buat button yg langsung berhubungan dengan printer, tetapi kt memilih ukuran print ny d form yang kita buat sendiri (bukan memilih ukuran dari printer)....mohon bantuanny........thx b4........

gimana sih caranya buat button print, tapi ukuran print nya ditentukan dengan menggunakan radio group, mis: 2x3, 4x6, dll hal-hal yang menurut saya dibutuhkan: 1 buah TImage --> untuk mengeluarkan gambar yang akan di print 1 buah radio group --> untuk memilih ukuran cetak (mis:2x3, 3x4) 2 buah button --> yg satu untuk ng-browse gambar yang akan dicetak, yg satu lagi untuk ngprint 1 buah open image dialog mohon bantuannya kakak. terima kasih.

tambahkan: 1. event onClick pada radio untuk mengubah ukuran TImage. 2. event onClick pada Button1 untuk load gambar. 3. event onClick pada Button2 untuk print TImage adalah sbb:

uses
  Printers;
procedure TForm1.Button2Click(Sender: TObject);
var
  ScaleX , ScaleY : Integer;
  RR: TRect;
begin
  with Printer do
  begin
    BeginDoc;
    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
   
      RR := Rect(0, 0, Image1.picture.Width  scaleX, Image1.Picture.Height   ScaleY);
      Canvas.StretchDraw(RR, Image1.Picture.Graphic);
    finally
      EndDoc;   
    end;
  end;
end;

kamu itu mau membentuk ukuran kertas yang akan kamu gunakan dengan satuan pixel atau dengan satuan cm ??

untuk ukuran cm kak.

@onlucid: tambahkan: 1. event onClick pada radio untuk mengubah ukuran TImage. 2. event onClick pada Button1 untuk load gambar. 3. event onClick pada Button2 untuk print TImage adalah sbb:

uses
  Printers;
procedure TForm1.Button2Click(Sender: TObject);
var
  ScaleX , ScaleY : Integer;
  RR: TRect;
begin
  with Printer do
  begin
    BeginDoc;
    try
      ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
      ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
   
      RR := Rect(0, 0, Image1.picture.Width  scaleX, Image1.Picture.Height   ScaleY);
      Canvas.StretchDraw(RR, Image1.Picture.Graphic);
    finally
      EndDoc;   
    end;
  end;
end;

kak onlucid, kalau in tu source code buat button print aj y? kl source code event on click buat radio button gmn y? kl buat ngbrowse gambar ma ud bisa. makasih.

tolong bantuanny.

kak, saya sudah coba source code dari kakak, mskipun blm d gabungkan dengan Radio Group buat memilih ukuran, tp ko tidak bs buat ng-print y? ap ad syarat khusus untuk memakai source code tersebut?soalny pada wkt d run tidak ada perintah error. printer yg sy gunakan Epson Stylus C45 mohon bantuanny.

kak mohon bantuanny buat permasalahan saya ini. makasih.

kak, kalau source code d atas tuh cm buat nggabungin gambar dengan printer y? blm sampai memanggil printerny? betul spt itu bkn? soalny temen ku tuh ngomongny bgt. makasi, mohon bantuanny.