Private Sub Command15_Click()
Dim http As Object
    Dim url As String
    Dim body As String
    Dim response As String
    
    ' Definisite URL
    url = "http://192.168.1.21:3566/api/invoices"
    
    ' Kreirajte XMLHTTP objekat
    Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    ' Definisite tijelo zahtjeva kao JSON string sa svim parametrima
    body = "{""print"": true, ""renderReceiptImage"": true, ""receiptLayout"": ""Slip"", ""receiptImageFormat"": ""Png"", ""receiptSlipWidth"": 386, ""receiptSlipFontSizeNormal"": 23, ""receiptSlipFontSizeLarge"": 27, ""invoiceRequest"": {""invoiceType"": ""Training"", ""transactionType"": ""Sale"", ""payment"": [{""amount"": 1.00, ""paymentType"": ""0""}], ""items"": [{""name"": ""Test"", ""labels"": [""\u0415""], ""totalAmount"": 1.00, ""unitPrice"": 0.50, ""quantity"": 2.000}], ""cashier"": ""Prodavac 1""}}"
    
    ' Otvorite HTTP konekciju
    http.Open "POST", url, False
    
    ' Dodajte zaglavlja
    http.setRequestHeader "Authorization", "Bearer 03dbf5a104b4c4d0ed2b298eb7886255"
    http.setRequestHeader "RequestId", "12385"
    http.setRequestHeader "Content-Type", "application/json"
    
    ' Posaljite zahtjev
    http.send body
    
    ' Dobijte odgovor
    response = http.responseText
    
    ' Prikazite odgovor
    MsgBox response
    Debug.Print response
    ' Oslobodite resurse
    Set http = Nothing
End Sub