Tidak semua aplikasi membutuhkan windows. Adakalanya Anda hanya sekedar butuh hardcopy saja. Dengan demikian, pencetakan menjadi lebih mudah, sebab perintah berikut dapat dijalankan tanpa memasang driver printer samasekali. Sebagai gantinya, kita membutuhkan fungsi-fungsi dari Windows saja.
Perintah-perintah berikut akan membutuhkan file System.pas. Anda tidak perlu susah-susah mencantumkan System di bagian Uses, sebab unit selalu ada di setiap unit yang Anda buat.Oke mari kita langkah demi langkah mencobanya. Program dibawah ini dibuat dengan meletakkan sebuah tombol Button1. Program pencetakan dijalankan setelah pengguna menekan tombol seperti dibawah ini:
1. Buatlah variabel dengan tipe TextFile
var
Tulisan : TextFile;
2. Arahkan variabel ke port printer
AssignFile(Tulisan, 'LPT1');
Ada yang perlu diperhatikan mengenai port printer. Pada saat artikel ini saya tulis, ada dua jenis port yang sering dipakai orang, port LPT1 dan port USB. Port usb agak bermasalah dengan program AssignFile diatas. Jika Anda menggunakan port usb, sharing port tersebut terlebih dahulu dengan cara sebagai berikut
Pilih Printer yang akan dipakai. Klik kanan. Pilih Properties
Berikan nama sharing, sebagai contoh, disini saya memberikana nama: NamaSharingPrinter
Kemudian arahkan pemakaian printer ke printer sharing tersebut:
Cara 1: Memakai IP dari komputer Anda sendiri;
net use LPT1: \\192.168.0.3\NamaSharingPrinter /persistent:yes
Cara 2: Memakai nama komputer Anda sendiri.
net use LPT1: \\NamaKomputer\NamaSharingPrinter /persistent:yes
3. Tentukan mode pembukaan file
Rewrite(Tulisan);
4. Tuliskan ke port
WriteLn(Tulisan, 'OCTA COWOK GANTENG');
5. Jangan lupa setelah dibuka harus ditutup
CloseFile(Tulisan);
Program selengkapnya:
0 comments:
Posting Komentar