Ciao, sto provando a fare alcuni test, ho la possibilità di collegare la stampante tramite USB con i driver per windows, quindi potrei stampare il report come una normale stampante, cercando di impostare correttamente le dimensioni.
Si tratta di questa stampante
CA-PP-10000B_User_manual.pdf
vorrei pero' poter stampare anche tramite LAN, perché potrei stampare anche da altre postazioni in rete.
l'unica cosa che sono riuscito a capire é che é certificata energy start, quindi dovrebbe utilizzare i loro comandi
ma poi non riesco piu ad andare avanti, ho letto che mi servirebbe la libreria Winsock che non installata.
Sono riuscito solo a stampare tramite powershell sparando i comandi in codice, stampa una riga Test Stampa, poi riga vuota, poi taglia la carta.
Ma cosi é davvero complicato.....
avete qualche idea
Private Sub cmdprint_Click()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
Dim script As String
script = "powershell -Command ""$tcp = New-Object System.Net.Sockets.TcpClient('192.168.1.9', 9100); " & _
"$stream = $tcp.GetStream(); " & _
"$data = [byte[]]@(27,64,84,101,115,116,32,83,116,97,109,112,97,10,27,100,5,27,105); " & _
"$stream.Write($data, 0, $data.Length); " & _
"$stream.Close(); $tcp.Close();"""
objShell.Run script, 0, True
Set objShell = Nothing
End Sub