Private Function PrintImageUsingPrintCommand(imagePath As String, printerName As String)
    Dim shellCommand As String

    ' Formiraj shell naredbu za printanje
    shellCommand = "print /d:""" & printerName & """ """ & imagePath & """"

    ' Izvrsi shell naredbu
    Shell "cmd.exe /c " & shellCommand, vbHide

    MsgBox "Slika je poslana na pisac."
End Function

Private Sub Command1_Click()
Dim imagePath As String
    Dim printerName As String

    ' Postavi putanju do slike
    imagePath = "D:\qr\qr.png"
    ' Postavi ime pisaca
    printerName = "EPSON" ' Zamijeni s stvarnim imenom pisaca

    ' Pozovi funkciju za printanje slike
    PrintImageUsingPrintCommand imagePath, printerName
End Sub