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