Postada em 08/12/2015 18:34 hs
Caros colegas programadores, alguém ja tem a solução para impressão do qrcode em vb através de comandos ESC/POS, estou tentando aqui mas não imprime mais do que 380 caracteres.
Dim store_len As Integer
Dim store_pH As Byte
Dim store_pL As Byte
StrCodigo = "35700153485215000106599000032240000049527319|20150714164608|100.00||pLptLMeLB50r7WPs178odovBcSan4KfTOJ58bwbW1WVRiDVKzjDi2xpCxokJtT+17V6OIkmBF2/AoAGBv6H7GC2rjsZt7tDPeCnlS8GmTylKu7HSivnpmNCpbos8hkvVz66/xWODKBRNVI+PVdyTmUYXOkguQWCTJydaRYStpRDSNT6aN8Gnm8IOOLUSkizlP6q3DMWK3+pl0wdaL/yS72S5kPuzohxn0bnTO9PS6aJQvjqq45mCMrUPn7hwUvLA+mgYNaekFRcNFfj59huiBuiZluFxDbcYANAySPV+N0cVvfmShE888ZHrPANHoYUf6DSm0r/WANUH72lISuVLuw=="
store_pL = CByte(store_len Mod 256)
store_pH = CByte(store_len / 256)
'CENTRALIZAR
Print #File1, Chr(27) & Chr(97) & Chr(1)
'MODELO
Print #File1, Chr(29); Chr(40); Chr(107); Chr(4); Chr(0); Chr(49); Chr(65); Chr(50); Chr(0); 'F 65
'TAMANHO
Print #File1, Chr(29); Chr(40); Chr(107); Chr(3); Chr(0); Chr(49); Chr(67); Chr(5); 'F 67 - 0 a 19 era 5
'CORRECAO
Print #File1, Chr(29); Chr(40); Chr(107); Chr(3); Chr(0); Chr(49); Chr(69); Chr(49); 'F 69 - 48/49/50/51
'DADOS
Print #File1, Chr(29); Chr(40); Chr(107); Chr(store_pL); Chr(store_pH); Chr(49); Chr(80); Chr(48); StrCodigo;
'IMPRIMIR
Print #File1, Chr(29); Chr(40); Chr(107); Chr(3); Chr(0); Chr(49); Chr(81); Chr(48); Chr(12); 'F 81
Se alguem tiver uma dica ai de como gerar agradeço !
|
