Software Apotek|Software Apotik|Program Apotek|Program Apotik|Aplikasi Apotek

Sub BukaDrawer()   On Error Resume Next   Open "LPT1" For Output As #1 ' Kalo Pake Port Com1 bisa diganti   Print #1, Chr$(27); Chr$(112); Chr$(0)   Close #1 End Sub juga bisa pake yg ini MSComm1.CommPort = 1 MSComm1.Settings = "300,n,8,1" MSComm1.PortOpen = True MSComm1.Output = "aaaaa" MSComm1.PortOpen = False

Software Apotek Kami Juga disertai daftar obatnya,jadi tidak usah repot,kami sediakan sekitar 6000 an  Bila berminat bisa Langsung Demo dan presentasi (Khusus di jakarta ) 0819 1129 2720 ( Ahmad ) Untuk Tampilan Modul ada di postingan :   Aplikasi Program Komputer Apotek Lengkap Plus Sample Daftar Obat dimulai huruf A 100 PLUS ORIGINAL 330ML   3 TC HBV TABLET (100 MG) 3 TC SOLUTION 240 ML/BTL 3 TC TABLET 150 MG ABATE 10 GR/SACHET ABBOTIC 250 MG ABBOTIC 500 MG ABBOTIC GRANULLE 30 ML ABBOTIC GRANULLE 60 ML ABBOTIC XL 500 MG TAB ABDEC DROPS ABOCATH N0 24 TERUMO ABOCATH NO 18 TERUMO ABOCATH NO 20 TERUMO ABOCATH NO 22 TERUMO ABSOLUTE FREE PINK/BLUE ACIFAR 400MG TAB ACIFAR CREAM 5GR ACCUCHECK STRP ABSORBABLE CALCIUM SYNPLUS ACCOLATE 20 MG TABLET ACCUCHECK ACTIVE M ACCUPRIL 10 MG TABLET ACCUPRIL