Printing Problems (CONTINUE)

H

hendra

i've used this code to print directly to the printer :
Dim rs As DAO.Recordset
Set rs = Me.[JUAL SUBFORM].Form.RecordsetClone
rs.MoveFirst

Open "LPT1" For Output As #1

Do While Not rs.EOF
Print #1, rs!NAMA_BARANG
rs.MoveNext
Loop
Close #1

the problem is : the default font size of the printer is
10. i want to increase and decrease the size, is this
possible? anyone can give me some idea how to do this? i
use EPSON LX-800 dot matrix printer. my application using
access. thank you.
 
Top