Sdr. Yohanes, terima kasih untuk bantuan program untuk ngeprint di kertas
panjang. Tapi mau tanya lagi nih, kenapa setelah saya coba masukkan ke
dalam program di VB kok ngga ada respon apa-apa ya di printer?
Apa ada yang salah di coding nya? Saya gunakan printer Epson LQ-1170.
Contoh program di VB saya ada di bawah ini. Mohon pencerahannya.
Terima Kasih
Private Sub Command2_Click()
Open "LPT1:" For Output As #1
Print #1, Tab(0)
Print #1, "Toko Buku - RHEMA"
Print #1, "Garut - Jabar"
Print #1, "------------------------------------"
Print #1, " "
Print #1, "Note: Barang yang sudah dibeli tidak"
Print #1, " dapat ditukar / dikembalikan."
Print #1, " "
Print #1, " *** T E R I M A K A S I H ***"
Print #1, " "
Print #1, " "
Print #1, " "
Print #1, " "
Print #1, Chr(0)
Close #1
End Sub
----- Original Message -----
From: "Yohanes Kurniawan" <[EMAIL PROTECTED]>
To: ">" <[email protected]>
Sent: Thursday, December 08, 2005 10:14 AM
Subject: Re: [Programmer-VB] Re: T: Print di kertas panjang
> nih... semoga membantu, kalau ada yg kurang jangan malu2 tanya
>
> Private Function Kanan(Data As String, Panjang As Integer) As String
> Dim Temp As String
>
> If Len(Data) > Panjang Then
> Kanan = Left(Data, Panjang)
> Exit Function
> End If
>
> Temp = Data
>
> Do While Len(Temp) <= Panjang
> Temp = " " & Temp
> Loop
>
> Kanan = Temp
> End Function
>
> ----- Original Message -----
> From: "Yunatan S. Widada" <[EMAIL PROTECTED]>
> To: "Programmer VB" <[email protected]>
> Sent: Thursday, December 08, 2005 9:39 AM
> Subject: Re: [Programmer-VB] Re: T: Print di kertas panjang
>
>
>> Salam...
>> Bung yohanes dulu pernah memberikan satu metode untuk mencetak di kertas
>> yang panjang seperti di supermarket. (sekalian ngebantu yang nanya
>> kemaren).
>> Cuman buat bung Yohanes, mau nanya nih, kalau di program anda ini kan ada
>> fungsi untuk mencetak biar bisa rata kanan (dengan nama fungsi kanan).
>> Kalau
>> boleh sekalian minta dong fungsi tsb. Terima Kasih..
>>
>> Yunatan
>>
>> ----- Original Message -----
>> From: "Yohanes" <[EMAIL PROTECTED]>
>> To: <[email protected]>
>> Sent: Thursday, August 25, 2005 1:22 PM
>> Subject: Re: [Programmer-VB] Re: T: Print di kertas panjang
>>
>>
>> oke aku kasih potongan programku yg hasilnya print terus sampai
>> terakhir tanpa menggulung halaman:
>>
>> Open "LPT1:" For Output As #1
>> Print #1, Tab(0)
>> Print #1, "Toko IKASI - Astra International"
>> Print #1, "AMDI A Lantai 1 - 6522555 Ext. 130"
>> Print #1, "------------------------------------"
>> Print #1, "No. : "; NoFaktur; Tab(17); Format(Now, "DD/MM/YY-HH:MM:SS
>> AM/PM")
>> Print #1, "NPK : "; "#" & Trim(rsData!NPK_PEMBELI) & "#"; Tab(20);
>> "Kasir:
>> "; Operator
>> Print #1, " "
>>
>> For PosData = 0 To rsJmlData!JML - 1
>> 'Print #1, Tab(0); Left(rsData!MERK, 15); Tab(18);
>> Kanan(Format(rsData!QTY_BELI, "#,#0"), 3); Tab(23);
>> Kanan(Format(rsData!QTY_BELI * rsData!H_JUAL, "#,#0"), 9)
>> Print #1, Tab(0); Left(rsData!MERK, 15); Tab(16);
>> Kanan(Format(rsData!QTY_BELI, "#,#0"), 2); Tab(19);
>> Kanan(Format(rsData!H_JUAL), 6); Tab(27); Kanan(Format(rsData!QTY_BELI *
>> rsData!H_JUAL, "#,#0"), 8)
>> TotalBelanjaan = TotalBelanjaan + (rsData!QTY_BELI * rsData!H_JUAL)
>> rsData.MoveNext
>> Next PosData
>>
>> rsJmlData.Close
>>
>> SQL = "Select sum(QTY_BELI) as JML from Transaksi where NO_FAK=" &
>> NoFaktur
>> rsJmlData.Open SQL, CN
>> rsData.MoveFirst
>>
>> Print #1, " "
>> Print #1, "Items : "; Format(rsJmlData!JML, "#,#0"); Tab(15); "Total :
>> ";
>> Kanan(Format(TotalBelanjaan, "#,#0"), 10)
>> Print #1, Tab(15); "Bayar : "; Kanan(Format(rsData!Bayar, "#,#0"), 10)
>> Print #1, Tab(15); "Kembali : "; Kanan(Format(rsData!Bayar -
>> TotalBelanjaan,
>> "#,#0"), 10)
>> Print #1, " "
>> Print #1, "Note: Barang yang sudah dibeli tidak"
>> Print #1, " dapat ditukar / dikembalikan."
>> Print #1, " "
>> Print #1, " *** T E R I M A K A S I H ***"
>> Print #1, " "
>> Print #1, " "
>> Print #1, " "
>> Print #1, " "
>> Print #1, Chr(0)
>> Close #1
>>
>>
>> ----- Original Message -----
>> From: "Junias Sinaga" <[EMAIL PROTECTED]>
>> To: <[email protected]>
>> Sent: Thursday, August 25, 2005 11:10 AM
>> Subject: [Programmer-VB] Re: T: Print di kertas panjang
>>
>>
>>> Terimakasih mas made adi.
>>> Saya udah coba juga cara ini.
>>> Tapi di akhir perintah saya taruh
>>>
>>> Printer.EndDoc
>>>
>>> Dan printer akan menggulung kertas sampai 1 halaman setelah selesai
>>> print. Tanpa perintah itu printer tidak akan memulai printing sampai
>>> aplikasi dimatikan. Bagaimana yach baiknya ?
>>
>>
>>
>>
>> Untuk keluar dari millis ini, kirim email kosong ke:
>> [EMAIL PROTECTED]
>>
>>
>> Yahoo! Groups Links
>>
>>
>>
>>
>>
>>
>>
>>
>>
>> Untuk keluar dari millis ini, kirim email kosong ke:
>> [EMAIL PROTECTED]
>>
>>
>> Yahoo! Groups Links
>>
>>
>>
>>
>>
>>
>>
>
>
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
> Yahoo! Groups Links
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
1.2 million kids a year are victims of human trafficking. Stop slavery.
http://us.click.yahoo.com/.QUssC/izNLAA/TtwFAA/k7folB/TM
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
