Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
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 = "EPS