Ex.: PictureBox
---------------------------------
Sub Teste_No_PictureBox()
Picture1.ScaleMode = vbMillimeters 'Definir escala em Milimetros
Picture1.Line (1, 1)-(40, 25), QBColor(7), BF 'Imprime um quadrado cinza claro
Picture1.FontName = "Courier New" 'Definir fonte
Picture1.FontSize = 20 'Tamanho da fonte
Picture1.FontBold = True 'Fonte en negrito
Picture1.CurrentX = 10
Picture1.CurrentY = 10
Picture1.Print "Teste" 'Imprimir texto
End Sub
---------------------------------
Ex.: Na Impressora
---------------------------------
Sub Teste_No_Printer()
Printer.Line (56, 56)-(2268, 2268), QBColor(7), BF 'Imprime um quadrado sinza claro
Printer.FontName = "Courier New" 'Definir fonte
Printer.FontSize = 20 'Tamanho da fonte
Printer.FontBold = True 'Fonte en negrito
Printer.CurrentX = 567
Printer.CurrentY = 567
Printer.Print "Teste" 'Imprimir texto
Printer.EndDoc
End Sub
--------------------------------
O eu não sei se é um problema da impressora (HP DeskJet 690C Series Printer e Epson FX-2170), pois o resultado obtido é um quadrado Cinza com um Quadrado Brando dentro do cinza e entro do Brando um texto de Texto preto.
Obs.: Eu tenho uma impressora PDF e não sai este quadrado Branco dentro do Cinza, será que é um problema da impressora que eu estou usando ou eu tenho que marcar alguma propriedade para que o plano de fundo do texto seja cinza.
Aguardo ajuda, se não souber não precisa responder
