Function RataKanan(ByVal NData As String, ByVal Cformat As String) As String
On Error Resume Next
    'fungsi untuk format rata kanan suatu data numerik
    RataKanan = Format(NData, Cformat)
    If (NData = "0") Then
        RataKanan = Space(Len(Cformat) - (Len(RataKanan) + 1)) & "0"
    Else
        RataKanan = Space(Len(Cformat) - Len(RataKanan)) & RataKanan
    End If
    Exit Function
End Function
Function iRKanan(ByVal NData As String, ByVal NBox As String) As String
    On Error GoTo handle
    'fungsi untuk format rata kanan suatu data numerik
    'gunakan set font Printer.font= "Courier New"
    If Len(NData) < Val(NBox) Then
        iRKanan = Space(NBox - Len(NData)) + NData
    Else
        iRKanan = NData
    End If
    Exit Function
handle:
        MsgBox "Tidak bisa mencetak " & vbCrLf & "Periksa kondisi printer anda, apakah sudah terpasang dengan baik !", vbInformation, "Kesalahan"
        Exit Function
End Function