Tente mudar a linha na linha o último caracter, para ver se os acentos saem corretamente: cCmdPagCod := #27+'t'+#4;
Use um dos valores abaixo:
If n is 2 (02h or 32h), CODEPAGE 850 is selected.
If n is 3 (03h or 33h), CODEPAGE 437 is selected.
If n is 4 (04h or 34h), CODEPAGE 860 is selected.
If n is 5 (05h or 35h), CODEPAGE 858 is selected.
If n is 6 (06h or 36h), CODEPAGE 866 is selected.
If n is 7 (07h or 37h), CODEPAGE 864 is selected.
If n is 8 (08h or 38h), UTF8 (Unicode) is selected.
If n is 9 (09h or 39h), Big-5E is selected.
If n is 10 (0Ah or 3Ah), JIS is selected.
If n is 11 (0Bh or 3Bh), SHIFT JIS is selected.
If n is 12 (0Ch or 3Ch), GB2312 is selected.
If n is 14 (0Eh or 3Eh), EUC-CN is selected.
If n is 21 (15h or 45h), CODEPAGE 862 is selected
E o código de barras e o QRCode foram impressos corretamente?