Vai al contenuto
PLC Forum


Stampare in visual basic 6


Xunil79

Messaggi consigliati


Nel mio archivio pattumiera :lol: ho trovato questo, non l'ho mai provato ma forse è quello che ti serve.La funzione dovrebbe bypassare il driver della stampante, che altrimenti interpreta la sequenza ESC come testo paranormale.

Public Declare Function EscapeCodes Lib "gdi32" Alias "Escape" (ByVal hdc&,ByVal nEscape&, ByVal nCount&, ByVal InData$, ByVal lpOutData&) As Long

Public Sub UsePrinterPart(DataToPrint As String)

Const cPASSTHROUGH As Long = 19

Dim pcl_Escape_Tmp As String

pcl_Escape_Tmp = Chr$(Len(DataToPrint) Mod 256) &Chr$(Len(DataToPrint) \

256) & DataToPrint

Printer.CurrentY = ciZero

Printer.Print vbNullString

EscapeCodes Printer.hdc, cPASSTHROUGH, 0, pcl_Escape_Tmp, ByVal 0&

End Sub

Ciao :)

Link al commento
Condividi su altri siti

Crea un account o accedi per commentare

Devi essere un utente per poter lasciare un commento

Crea un account

Registrati per un nuovo account nella nostra comunità. è facile!

Registra un nuovo account

Accedi

Hai già un account? Accedi qui.

Accedi ora
×
×
  • Crea nuovo/a...