- Private Sub Print_Click()
- strDebSlova = Chr(27) & Chr(33) & Chr(32)
- strObSlova = Chr(27) & Chr(33) & Chr(1)
- veliko = Chr(27) & "W" + Chr(1) + Chr(27) & "w" + Chr(1)
- malo = Chr(27) & "W" + Chr(0) + Chr(27) & "w" + Chr(0)
- masno = Chr(27) & "E"
- nemasno = Chr(27) & "F"
- duplo = Chr(27) & "G"
- normalno = Chr(27) & "H"
- Dim IznosStr
- IznosStr = Iznos.Value
- If IsNull(UplatioJe.Value) = True Then UplatioJe.Value = " "
- If IsNull(UplatioJe1.Value) = True Then UplatioJe1.Value = " "
- If IsNull(RacunPos.Value) = True Then RacunPos.Value = " "
- If IsNull(RacunPrim.Value) = True Then RacunPrim.Value = " "
- If IsNull(Svrha.Value) = True Then Svrha.Value = " "
- If IsNull(Svrha1.Value) = True Then Svrha1.Value = " "
- If IsNull(IznosStr) = True Then IznosStr = " "
- If IsNull(Primalac.Value) = True Then Primalac.Value = " "
- If IsNull(Primalac1.Value) = True Then Primalac1.Value = " "
- If IsNull(BrojObav.Value) = True Then BrojObav.Value = " "
- If IsNull(Mjesto.Value) = True Then Mjesto.Value = " "
- If IsNull(Datum.Value) = True Then Datum.Value = " "
- If IsNull(VrstaPrih.Value) = True Then VrstaPrih.Value = " "
- If IsNull(Opcina.Value) = True Then Opcina.Value = " "
- If IsNull(VU.Value) = True Then VU.Value = " "
- If IsNull(BO.Value) = True Then BO.Value = " "
- If IsNull(PozNaBroj.Value) = True Then PozNaBroj.Value = " "
- Open PORT For Output As #1
- Print #1, strObSlova;
- Print #1, ""
- Print #1, Tab(3); [UplatioJe]
- Print #1, Tab(3); [UplatioJe1]; Tab(51); [RacunPos]
- Print #1, ""
- Print #1, Tab(3); [Svrha]; Tab(51); [RacunPrim]
- Print #1, Tab(3); [Svrha1]
- Print #1, Tab(45); duplo; "="; Format([IznosStr], "###0.00"); normalno
- Print #1, Tab(3); [Primalac]
- Print #1, Tab(5); [Primalac1]
- Print #1, Tab(48); [BrojObav]; Tab(73); [VU]
- Print #1, ""
- Print #1, Tab(7); [Mjesto]; Tab(19); Format([Datum], "DD. MM. YYYY"); Tab(64); Format([Od], "00 00 00")
- Print #1, Tab(47); [VrstaPrih]; " "; Format([Do], "00 00 00")
- Print #1, ""
- Print #1, ""
- Print #1, Tab(48); [Opcina]; Tab(65); masno; [BO]; nemasno
- Print #1, ""
- Print #1, Tab(46); [PozNaBroj]
- Print #1, ""
- Print #1, ""
- Print #1, ""
- Print #1, ""
- Print #1, ""
- Print #1, ""
- Close #1
- End Sub