guy,
aku mau print dari ms.access ke printer epson lx300
cara nya :
Function c()
Open "\\namaPrinter\lx300" For Output As #1
Print #1, Chr(27) & "@" 'Initialize printer
Print #1, Chr(27) & "A" & Chr(10) ' set to 10/72"
Print #1, "This is a test first row"
Print #1, "This is a test second row"
Print #1, Chr(27) & "A" & Chr(30) ' set to 30/72"
Print #1, Chr(27) & "E" 'Bold
Print #1, "This is a test first row"
Print #1, "This is a test second row"
Print #1, Chr(27) & "F"
Close #1
End Function
Open "\\namaPrinter\lx300" For Output As #1
Print #1, Chr(27) & "@" 'Initialize printer
Print #1, Chr(27) & "A" & Chr(10) ' set to 10/72"
Print #1, "This is a test first row"
Print #1, "This is a test second row"
Print #1, Chr(27) & "A" & Chr(30) ' set to 30/72"
Print #1, Chr(27) & "E" 'Bold
Print #1, "This is a test first row"
Print #1, "This is a test second row"
Print #1, Chr(27) & "F"
Close #1
End Function
hasil dari print di atas tidak menghasil kan font yang kecil.....
mohon solusi nya thx
note: kebutuhan nya direct print , tak bisa melalui report access
Best regard
Erwin Sugiawan
Erwin Sugiawan
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar