USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  C/Definir a cor de um Plano de fundo na Impressora
EmersonP21
PORTO ALEGRE
RS - BRASIL
ENUNCIADA !
Postada em 06/08/2004 09:53 hs            
Olá, alguém sabe como definir a cor de um Plano de fundo de um texto na Impressora ?
Eu consigo fazer em um Objeto PictureBox, mais não consigo obter o mesmo resultado na impressora.
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
   
EmersonP21
PORTO ALEGRE
RS - BRASIL
Postada em 09/08/2004 11:58 hs            
Por favor, algum me da um help
se demorar muito eu vou fechar este topico.
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página