7/23/2019 Untuk Cetak Struk

1/3

..Untuk Cetak strukSubCetakStruk() Dimkoneksi AsString koneksi = "Data Source=MRDISTIARA-C!Initia Cataog=#b$arkir!Integrate# Securit%=True" Tr% C&'' = 'eSCient.SConnection(koneksi)

C&''.&$en() C&''.Cose() Catc*e+ As,+ce$tion Messageo+.S*o("oneksi error / "0 e+.Message) ,n#Tr% Dims AsString Consts1' AsString= ControC*ars.Cr12 3Const tab+ As String = ControC*ars.Tab Dim$# As'erintDiaog DimoS As'eS%stem.Draing.rinting.rinterSettings 3Dim s$s As String

s 4= " arkir o$os"4 s1' s 4= "ID Masuk / "4 s1'

s 4= "5enis en#araan /"4 s1' s 4= "'o ta oisi /"4 s1' s 4= "Tangga / "4 Time&2Da% 4 " "4 s1' s 4= "5am / "4 Time&2Da% 4 " "4 s1' s 4= "666666666666666666666666666666666666666666"4 s1' 3untuk mencetak item 7or+ AsInteger= 8ToData9ri#:ie;.RoCount - ; s 4= " item "4 + 4 " 4 "" "4 s1'

'e+t s 4= " "4 s1' s 4= " "4 s1' s 4= " 66666666666666666666"4 s1' s 4= " Subtota / ;8;.888"4 s1'

s 4= " Cas* / ;8;.888"4 s1' s 4= " embai / ;8;.888"4 s1' s 4= " "4 s1' s 4= " "4 s1' s 4= " "4 s1' s 4= "

7/23/2019 Untuk Cetak Struk

2/3

BMars*aAs(Unmanage#T%$e.1Str) ubic$&ut$ut7ie AsString BMars*aAs(Unmanage#T%$e.1Str) ubic$DataT%$e AsString ,n#Structure BDIm$ort("ins$oo.Dr"? ,ntr%oint/="&$enrinter"? 6 Set1ast,rror/=True? C*arSet/=C*arSet.Unico#e? 6 ,+actS$eing/=True? CaingConention/=CaingConention.St#Ca) 6 ubicS*are#7unction&$enrinter(%:asrc AsString? %Re2*rinter AsInttr? %:a$# As

1ong) Asooean ,n#7unction BDIm$ort("ins$oo.Dr"? ,ntr%oint/="Coserinter"? 6 Set1ast,rror/=True? C*arSet/=C*arSet.Unico#e? 6 ,+actS$eing/=True? CaingConention/=CaingConention.St#Ca) 6 ubicS*are#7unctionCoserinter(%:a*rinter AsInttr) Asooean ,n#7unction BDIm$ort("ins$oo.Dr"? ,ntr%oint/="StartDocrinter"? 6 Set1ast,rror/=True? C*arSet/=C*arSet.Unico#e? 6 ,+actS$eing/=True? CaingConention/=CaingConention.St#Ca) 6 ubicS*are#7unctionStartDocrinter(%:a*rinter AsInttr? %:aee AsIntEF? %Re2$DIAsD&CI'7A) Asooean ,n#7unction BDIm$ort("ins$oo.Dr"? ,ntr%oint/=",n#Docrinter"? 6 Set1ast,rror/=True? C*arSet/=C*arSet.Unico#e? 6 ,+actS$eing/=True? CaingConention/=CaingConention.St#Ca) 6 ubicS*are#7unction,n#Docrinter(%:a*rinter AsInttr) Asooean ,n#7unction BDIm$ort("ins$oo.Dr"? ,ntr%oint/="Startagerinter"? 6 Set1ast,rror/=True? C*arSet/=C*arSet.Unico#e? 6 ,+actS$eing/=True? CaingConention/=CaingConention.St#Ca) 6 ubicS*are#7unctionStartagerinter(%:a*rinter AsInttr) Asooean ,n#7unction BDIm$ort("ins$oo.Dr"? ,ntr%oint/=",n#agerinter"? 6 Set1ast,rror/=True? C*arSet/=C*arSet.Unico#e? 6 ,+actS$eing/=True? CaingConention/=CaingConention.St#Ca) 6 ubicS*are#7unction,n#agerinter(%:a*rinter AsInttr) Asooean

,n#7unction BDIm$ort("ins$oo.Dr"? ,ntr%oint/="riterinter"? 6 Set1ast,rror/=True? C*arSet/=C*arSet.Unico#e? 6 ,+actS$eing/=True? CaingConention/=CaingConention.St#Ca) 6 ubicS*are#7unctionriterinter(%:a*rinter AsInttr? %:a$%tes AsInttr? %:a#Count AsIntEF? %Re2#ritten AsIntEF) Asooean ,n#7unction

ubicS*are#7unctionSen#%tesTorinter(%:asGrinter'ame AsString? %:a$%tes AsInttr? %:a#Count AsIntEF) Asooean Dim*rinter AsInttr Dim#,rror AsIntEF Dim#i AsD&CI'7A

Dim#ritten AsIntEF DimbSuccess Asooean it*#i #i.$Doc'ame = "arkir o$os" #i.$DataT%$e = "RA" ,n#it* bSuccess = 7ase I2&$enrinter(sGrinter'ame? *rinter? 8)T*en I2StartDocrinter(*rinter? ;? #i)T*en I2Startagerinter(*rinter)T*en

7/23/2019 Untuk Cetak Struk

3/3

bSuccess = riterinter(*rinter? $%tes? #Count? #ritten) ,n#agerinter(*rinter) ,n#I2 ,n#Docrinter(*rinter) ,n#I2 Coserinter(*rinter)

,n#I2 I2bSuccess = 7aseT*en #,rror = Mars*a.9et1astinEF,rror() ,n#I2 ReturnbSuccess ,n#7unction ubicS*are#7unctionSen7ieTorinter(%:asGrinter'ame AsString? %:asG7ie'ame AsString) Asooean Dim2s As'e7ieStream(sG7ie'ame? 7ieMo#e.&$en) Dimbr As'einar%Rea#er(2s) Dimb%tes(2s.1engt*) As%te DimbSuccess Asooean Dim$Unmanage#%tes AsInttr

b%tes = br.Rea#%tes(2s.1engt*)

$Unmanage#%tes = Mars*a.AocCoTaskMem(2s.1engt*)

Mars*a.Co$%(b%tes? 8? $Unmanage#%tes? 2s.1engt*)

bSuccess = Sen#%tesTorinter(sGrinter'ame? $Unmanage#%tes? 2s.1engt*)

Mars*a.7reeCoTaskMem($Unmanage#%tes) ReturnbSuccess ,n#7unction ubicS*are#7unctionSen#StringTorinter(%:asGrinter'ame AsString? %:asGString AsString)

Dim$%tes AsInttr Dim#Count AsIntEF DimbSuccess Asooean

#Count = sGString.1engt*()

$%tes = Mars*a.StringToCoTaskMemAnsi(sGString)

Sen#%tesTorinter(sGrinter'ame? $%tes? #Count) Mars*a.7reeCoTaskMem($%tes) ReturnbSuccess ,n#7unction

,n#Cass