Arsip: button print

 
user image
more 11 years ago

andry_yang

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........
user image
more 11 years ago

andry_yang

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.
user image
more 11 years ago

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;
user image
more 11 years ago

heriy4nt0

kamu itu mau membentuk ukuran kertas yang akan kamu gunakan dengan satuan pixel atau dengan satuan cm ??
user image
more 11 years ago

andry_yang

untuk ukuran cm kak.
user image
more 11 years ago

andry_yang

@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.
user image
more 11 years ago

andry_yang

tolong bantuanny.
user image
more 11 years ago

andry_yang

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.
user image
more 11 years ago

andry_yang

kak mohon bantuanny buat permasalahan saya ini. makasih.
user image
more 11 years ago

andry_yang

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.
more ...
  • Pages:
  • 1
  • 2
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com