Views

Histats

Vitrine

VBA: Imprimindo em Matricial.

Eventualmente precisaremos imprimir dados em impressoras matriciais. E isso será possível por condicionarmos a saída dos dados pela porta LPT1. Function PressMatricialReport() Dim nPort as String Dim nLogo as String Let nPort = "LPT1" Let nLogo= "Logo.bmp" Open nPort For Output As #1 Open nLogo For Binary As #2 Let img = Space(LOF(2)) Get #2, 1, img Close #2 Print #1, CHR (2) + "Nome" Print #1, img Print #1, CHR (2) + "..." Print #1, CHR (2) + ":.:.:" + Chr(1) Print #1, CHR (2) + "..:..:..:.." Print #1, CHR (2) + "." Print #1, CHR (2) + "." Print #1, ";;;;;;;" Print #1, "Bernardes" + "NomeImg" Print #1, "Luiz" & texto Print #1, "Andre" & barra Print #1, "007" Print #1, "Out" Print #1, CHR (2) + "" Close #1 End Function André Luiz Bernardes

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias