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