bgm cara mengkoneksikan printer pos dengan program delphi yang dibuat

BudZ99

butuh bantuan bro, saya kan membuat program penjualan dengan menggunakan delphi 7 lite. nah waktu mau print, hasilnya tidak sesuai dengan yang saya mau. saya menggunakan printer samsung bixolon srp 270 auto cutter. permasalahan yang terjadi adalah autocutternya tidak mau berfungsi setelah selesai mencetak struk, padahal waktu di test print bisa jalan, selain itu jarak antara baris tidak sesuai dengan yang di print preview. o yah saya menggunakan komponen zreport untuk membuat lap struk ini. barangkali ada di antara teman2 sekalian yang bisa membantu saya. terima kasih sebelumnya

BudZ99

waduhh kok ngga ada yang bantuin yah?

echocrazz

kmren
ak juga buat aplikasi supermarket gtu
tapi aku guanin komponen Cport10
dan berhasil kok
coba pakek itu ja gan

BudZ99

komponen untuk apa itu bro

BudZ99

komponen untuk apa itu bro

echocrazz

kmren ak gunain tuk koneksi ke printer struk
serta digunain tuk nyusun
hasil laporan nya

BudZ99

bisa minta source codenya bro

echocrazz

//--- Start Print Struk

---

{ComPort1.Open;
//---- Start Buat Rata Tengah

---

ComPort1.WriteStr(#27+#112+'1');
ComPort1.WriteStr(#27+#112+'1');
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr('TAWAR SEDENGE');
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr('MARKET');
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
//---- End Buat Rata Tengah

---

//---- Start Rata Kiri

---

ComPort1.WriteStr(#27+#97+'0');
ComPort1.WriteStr(FormatDateTime('dddd, dd/mm/yyyy hh:mm',Now));
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(Label3.Caption+', '+Label11.Caption);
ComPort1.WriteStr(#10#13);
djual.First;
ComPort1.WriteStr('

---

');
ComPort1.WriteStr(#10#13); }
for i:=0 to djual.RecordCount-1 do
begin
{ComPort1.WriteStr(djualkodebrg.Value+' '+djualnamabrg.Value);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(djualqty.AsString+' '+'@ '+djualhjualsatuan.AsString+' '+djualsubtotal.AsString);
ComPort1.WriteStr(#10#13); }
djual.Next;
end;
{ ComPort1.WriteStr('

---

');
ComPort1.WriteStr(#10#13);
// ComPort1.WriteStr(#27+#97+'2');
ComPort1.WriteStr('Grand Total : '+mjualtotaljual.AsString);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr('Bayar : '+mjualjlhbayar.AsString);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr('Sisa/Kembali: '+mjualsisa.AsString);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
//---- End Rata Kiri

---

//---- Start Buat Rata Tengah

---

ComPort1.WriteStr(#27+#97+'1');
ComPort1.WriteStr('* Terima Kasih *');
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#27+#97+'0');
ComPort1.WriteStr('NB :');
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr('Barang yang sudah dibeli');
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr('Tidak dapat dikembalikan');
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#27+#97+'1');
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr('(c) Copyright Qosmic 2010');
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13);
ComPort1.WriteStr(#10#13); }
//---- End Buat Rata Tengah

---

//--- End Print Struk dan Open Drawer

---

BudZ99

thx bro dicoba dulu, itu comportnya ngga pake setinggan property lagi?

BudZ99

trus printah untuk cetak struknya gimana??

echocrazz

Gak ada settingan lg
printah tuk print ya

comport.open;
trus deh kita atur tampilan report nya

BudZ99

thx bro, udah jalan programnya. makasih banget ^:)^

echocrazz

ok sama2 gan
sukses ya =D>

yunda

@echocrazz
aku juga punya studi kasus tentang comport gtu
nilai yg kedeteksi pada timbangan digital dilanjutkan print di raw print.
udah bisa sih untuk deteksi nilai pada timbangannya, tpi untuk masalah print.nya ini yg lucu
hasil printnya kecil banget, ga sesuai harapan.
bisa tolongin aku ga terimakasih