> Kalo saya pake yg spt ini, selama ini sih ngak pernah problem atau > ngaco tapi ngak tau apa bener DOS mode atau Windows. Tolong kasih tau > apakah sama spt assignprn ? Krn kata WinAPI sih kalo PASSTHROUGH itu
Setahu saya PASSTHROUGH enggak bisa jalan di Win2K/WinXP Cuma jalan di Win98. CMIIW. Saya dulu juga pake. :-) Rusmin Noer > Allows the application to send data directly to a printer. Kalo ngak > berarti dikadalin ame Bill dong. Jadi bener kata quote dr Kang Jaim. > Kita itu terlampau enak pake komponen buatan org sehingga ngak bisa > apa-apa. Jadi musti belajar yg dalem lagi nih ampe tenggelem :) > > procedure PrintDirect(sString: string); > type > TPrnBuffRec = record > BuffLength : word; > Buffer : array [0..255] of char; > end; > var > Buff : TPrnBuffRec; > begin > StrPCopy(Buff.Buffer, sString + Chr(10)); > Buff.BuffLength := StrLen(Buff.Buffer); > Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil); > end; > > procedure PrintComDirect(sString: string); > type > TPrnBuffRec = record > BuffLength : word; > Buffer : string[255]; > end; > var > Buff : TPrnBuffRec; > begin > Buff.Buffer := sString; > Buff.BuffLength := Length(Buff.Buffer); > Escape(Printer.Canvas.Handle, PASSTHROUGH, 0, @Buff, nil); > end; > ------------------------ Yahoo! Groups Sponsor ---------------------~--> Rent DVDs from home. Over 14,500 titles. Free Shipping & No Late Fees. Try Netflix for FREE! http://us.click.yahoo.com/mk9osC/hP.FAA/3jkFAA/i7folB/TM ---------------------------------------------------------------------~-> Berlangganan: [EMAIL PROTECTED] Stop Berlangganan: [EMAIL PROTECTED] Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
