FUNDO DA FONT - VIA PRINTER
seguinte pessoal , n consigo definir a cor do fundo na impressão.. vcs verão na imagem.
se alguem puder ajudar agradeço.
obrigado
se alguem puder ajudar agradeço.
obrigado
nao pode ser print # ?
comigo funciona
comigo funciona
n, pq eu jogo pra impressora
ai vai o codigo.
Private Sub Command_Click()
[ô] y = Altura
Printer.ScaleMode = vbMillimeters
Printer.PaperSize = vbPRPSA4
Printer.DrawWidth = 5
Printer.FontName = [Ô]Arial[Ô]
Printer.ColorMode = 2 [ô] COLORIDA
Printer.FontSize = 8.28
[ô] For i = 1 To 2
[ô]------------------------------------------------------------------------- IMPRIME LOGO
Printer.PaintPicture ImageList.ListImages(1).Picture, 7.5 + PosX, 3.5 + PosY
[ô]------------------------------------------------------------------------- RETANGULO CABEÇALHO
Printer.Line (0 + PosX, 2 + PosY)-(198 + PosX, 37 + PosY), QBColor(8), B
[ô]************* DADOS DA EMPRESA ********* ABAIXO LOGO
Printer.CurrentX = 8 + PosX
Printer.CurrentY = 22 + PosY
Printer.FontBold = True
Printer.Print [Ô]KOCH, LEISTNER & CIA LTDA[Ô]
Printer.FontBold = False
Printer.CurrentX = 8 + PosX
Printer.Print [Ô]Av. A. J. Renner, 1460[Ô]
Printer.CurrentX = 8 + PosX
Printer.Print [Ô]CEP 90250-000 - Porto Alegre - RS[Ô]
Printer.CurrentX = 8 + PosX
Printer.Print [Ô]FONE: (51) 3337-5874[Ô]
[ô]********************************************************
[ô]-------------------------------------------- LINHA DIVISORIA LOGO E TITULO [ô]PRAZO DE ENTREGA VARTICAL
Printer.Line (60 + PosX, 2 + PosY)-(60 + PosX, 37 + PosY), QBColor(8), B
[ô]------------------------------------------------------------- LINHA DIVISORIA [ô]RECIBO DE FRETE[ô] VERTICAL
Printer.Line (160 + PosX, 2 + PosY)-(160 + PosX, 37 + PosY), QBColor(8), B
[ô]------------------------------------------------------------------------- RETANGULO CINZA [ô]RECIBO DE FRETE[ô]
Printer.Line (160 + PosX, 2 + PosY)-(198 + PosX, 10 + PosY), QBColor(8), BF
[ô]-------------------------- RECIBO DE FRETE TITULO
Printer.CurrentX = 166 + PosX
Printer.CurrentY = 5 + PosY
Printer.FontBold = True
Printer.Print [Ô]RECIBO DE FRETE[Ô]
Printer.FontBold = False
[ô]----------------------- LINHAS ENTRE [ô]PRAZO DE ENTREGA[ô] HORIZONTAIS
Printer.Line (61 + PosX, 10 + PosY)-(159 + PosX, 10 + PosY), QBColor(8), B
Printer.CurrentX = 63 + PosX
Printer.CurrentY = 5 + PosY
Printer.Print [Ô]De: Para:[Ô]
Printer.CurrentX = 61 + PosX
Printer.CurrentY = 13.5 + PosY
Printer.Print [Ô]Prazo de Entrega:[Ô]
X = Printer.FontSize
Printer.FontSize = Printer.FontSize + 3
Printer.FontBold = True
Printer.CurrentX = 65 + PosX
Printer.CurrentY = 22 + PosY
Printer.Print [Ô] O MOTORISTA ESTà CIENTE QUE TERà 35%[Ô]
Printer.CurrentX = 65 + PosX
Printer.Print [Ô]DE DESCONTO NO FRETE CASO NÃO CUMPRA[Ô]
Printer.CurrentX = 65 + PosX
Printer.Print Space(20) & [Ô]O PRAZO DE ENTREGA[Ô]
Printer.FontBold = False
Printer.FontSize = X
[ô]----------------------- LINHAS ENTRE [ô]PRAZO DE ENTREGA[ô] HORIZONTAIS
Printer.Line (61 + PosX, 20 + PosY)-(159 + PosX, 20 + PosY), QBColor(8), B
[ô]------------------------------------------------------------------------- RETANGULO CABEÇALHO ctos
Printer.Line (0 + PosX, 37.5 + PosY)-(198 + PosX, 42 + PosY), QBColor(8), BF
[ô]------------------------------------------------------------------------- TITULO CABEÇALHO CTO
Printer.CurrentX = 2 + PosX
Printer.CurrentY = 38 + PosY
Printer.Print [Ô]N° CTO | REMETENTE | DESTINATARIO | NOTA FISCAL | VOLUMES | KG | VALOR DA CARGA | FRETE [Ô]
[ô]------------------------------------------------------------------------- RETANGULO ctos
Printer.Line (0 + PosX, 38 + PosY)-(198 + PosX, 155 + PosY), QBColor(8), B
[ô]------------------------------------------------------------------------- RETANGULO apolice
Printer.Line (0 + PosX, 156 + PosY)-(198 + PosX, 163 + PosY), QBColor(8), B
Printer.CurrentX = 1
Printer.CurrentY = 157.8
Printer.Print [Ô]Mercadoria Segurada Pela Apólice de[Ô]
[ô]------------------------------------------------------------------------- RETANGULO obs
Printer.Line (0 + PosX, 164 + PosY)-(198 + PosX, 185 + PosY), QBColor(8), B
Printer.CurrentX = 1
Printer.CurrentY = 165.8
Printer.Print [Ô]Obs:[Ô]
Printer.CurrentX = 1
Printer.CurrentY = 180.8
Printer.Print [Ô]TAXA:[Ô]
[ô]-------------------------------------------------------------------------VALORES
Printer.Line (0 + PosX, 186 + PosY)-(198 + PosX, 225 + PosY), QBColor(8), B
Printer.CurrentX = 1
Printer.CurrentY = 188 + PosY
Printer.Print [Ô]Nome do Proprietário:[Ô]
Printer.CurrentY = 194 + PosY
Printer.CurrentX = 1
Printer.Print [Ô]Endereço do Proprietário:[Ô]
Printer.CurrentY = 200 + PosY
Printer.CurrentX = 1
Printer.Print [Ô]Nome do Motorista:[Ô]
Printer.CurrentX = 1
Printer.CurrentY = 206 + PosY
Printer.Print [Ô]Endereço do Motorista:[Ô]
Printer.CurrentX = 1
Printer.CurrentY = 212 + PosY
Printer.Print [Ô]N° Cert. Prop. VeÃculo: [Ô] & Space(70) & [Ô]N° Ident Mot.:[Ô]
Printer.CurrentX = 1
Printer.CurrentY = 218 + PosY
Printer.Print [Ô]N° CPF Motorista:[Ô] & Space(70) & [Ô] Fone p/ Contato:[Ô]
[ô]**************************** CÓD DE BARRAS SALDO ************************
Printer.CurrentX = 22 + PosX
Printer.CurrentY = 228 + PosY
Printer.Print [Ô]SALDO[Ô] & Space(155) & [Ô]ADIANTAMENTO[Ô]
[ô]cod filial (3) / SEQ OPF (6) / OP (1) / VALOR
PRCImprime_Cod_Bar [Ô]123012345099999999999999999999[Ô], 1, 13000.5 [ô] completado 20 numeros [ô]9[ô] para dexiar mais bonito o cod de barras
[ô]**************************** CÓD DE BARRAS ADI ************************
PRCImprime_Cod_Bar [Ô]123012345099999999999999999999[Ô], 8000, 13000.5 [ô] completado 20 numeros [ô]9[ô] para dexiar mais bonito o cod de barras
[ô]------------------------------------------------------------------------- QUADRO assinaturas
Printer.Line (0 + PosX, 245 + PosY)-(198 + PosX, 265 + PosY), QBColor(8), B
Printer.CurrentX = 6.5 + PosX
Printer.CurrentY = 247 + PosY
Printer.Print [Ô]Porto Alegre, de 200[Ô]
Printer.CurrentX = 3.5 + PosX
Printer.CurrentY = 255 + PosY
Printer.Print [Ô]___________________________________[Ô]
Printer.CurrentX = 14 + PosX
Printer.Print [Ô]Assinatura do Motorista[Ô]
[ô]------------------------------------------------------------------------------- divisoria ass
Printer.Line (65 + PosX, 247 + PosY)-(65 + PosX, 263 + PosY), QBColor(8), B
Printer.CurrentX = 74 + PosX
Printer.CurrentY = 247 + PosY
Printer.FontBold = True
Printer.Print [Ô]KOCH, LEISTNER & CIA LTDA[Ô]
Printer.FontBold = False
Printer.CurrentX = 72 + PosX
Printer.CurrentY = 255 + PosY
Printer.Print [Ô]_____________________________[Ô]
Printer.CurrentX = 80.5 + PosX
Printer.Print [Ô]Assinatura da Empresa[Ô]
[ô]------------------------------------------------------------------------------- divisoria ass
Printer.Line (130 + PosX, 247 + PosY)-(130 + PosX, 263 + PosY), QBColor(8), B
Printer.CurrentX = 145 + PosX
Printer.CurrentY = 247 + PosY
Printer.Print [Ô]Recebi o Valor Acima Indicado[Ô]
Printer.CurrentX = 140 + PosX
Printer.CurrentY = 255 + PosY
Printer.Print [Ô]_____________________________[Ô]
Printer.CurrentX = 148.5 + PosX
Printer.Print [Ô]Assinatura do Motorista[Ô]
ai vai o codigo.
Private Sub Command_Click()
[ô] y = Altura
Printer.ScaleMode = vbMillimeters
Printer.PaperSize = vbPRPSA4
Printer.DrawWidth = 5
Printer.FontName = [Ô]Arial[Ô]
Printer.ColorMode = 2 [ô] COLORIDA
Printer.FontSize = 8.28
[ô] For i = 1 To 2
[ô]------------------------------------------------------------------------- IMPRIME LOGO
Printer.PaintPicture ImageList.ListImages(1).Picture, 7.5 + PosX, 3.5 + PosY
[ô]------------------------------------------------------------------------- RETANGULO CABEÇALHO
Printer.Line (0 + PosX, 2 + PosY)-(198 + PosX, 37 + PosY), QBColor(8), B
[ô]************* DADOS DA EMPRESA ********* ABAIXO LOGO
Printer.CurrentX = 8 + PosX
Printer.CurrentY = 22 + PosY
Printer.FontBold = True
Printer.Print [Ô]KOCH, LEISTNER & CIA LTDA[Ô]
Printer.FontBold = False
Printer.CurrentX = 8 + PosX
Printer.Print [Ô]Av. A. J. Renner, 1460[Ô]
Printer.CurrentX = 8 + PosX
Printer.Print [Ô]CEP 90250-000 - Porto Alegre - RS[Ô]
Printer.CurrentX = 8 + PosX
Printer.Print [Ô]FONE: (51) 3337-5874[Ô]
[ô]********************************************************
[ô]-------------------------------------------- LINHA DIVISORIA LOGO E TITULO [ô]PRAZO DE ENTREGA VARTICAL
Printer.Line (60 + PosX, 2 + PosY)-(60 + PosX, 37 + PosY), QBColor(8), B
[ô]------------------------------------------------------------- LINHA DIVISORIA [ô]RECIBO DE FRETE[ô] VERTICAL
Printer.Line (160 + PosX, 2 + PosY)-(160 + PosX, 37 + PosY), QBColor(8), B
[ô]------------------------------------------------------------------------- RETANGULO CINZA [ô]RECIBO DE FRETE[ô]
Printer.Line (160 + PosX, 2 + PosY)-(198 + PosX, 10 + PosY), QBColor(8), BF
[ô]-------------------------- RECIBO DE FRETE TITULO
Printer.CurrentX = 166 + PosX
Printer.CurrentY = 5 + PosY
Printer.FontBold = True
Printer.Print [Ô]RECIBO DE FRETE[Ô]
Printer.FontBold = False
[ô]----------------------- LINHAS ENTRE [ô]PRAZO DE ENTREGA[ô] HORIZONTAIS
Printer.Line (61 + PosX, 10 + PosY)-(159 + PosX, 10 + PosY), QBColor(8), B
Printer.CurrentX = 63 + PosX
Printer.CurrentY = 5 + PosY
Printer.Print [Ô]De: Para:[Ô]
Printer.CurrentX = 61 + PosX
Printer.CurrentY = 13.5 + PosY
Printer.Print [Ô]Prazo de Entrega:[Ô]
X = Printer.FontSize
Printer.FontSize = Printer.FontSize + 3
Printer.FontBold = True
Printer.CurrentX = 65 + PosX
Printer.CurrentY = 22 + PosY
Printer.Print [Ô] O MOTORISTA ESTà CIENTE QUE TERà 35%[Ô]
Printer.CurrentX = 65 + PosX
Printer.Print [Ô]DE DESCONTO NO FRETE CASO NÃO CUMPRA[Ô]
Printer.CurrentX = 65 + PosX
Printer.Print Space(20) & [Ô]O PRAZO DE ENTREGA[Ô]
Printer.FontBold = False
Printer.FontSize = X
[ô]----------------------- LINHAS ENTRE [ô]PRAZO DE ENTREGA[ô] HORIZONTAIS
Printer.Line (61 + PosX, 20 + PosY)-(159 + PosX, 20 + PosY), QBColor(8), B
[ô]------------------------------------------------------------------------- RETANGULO CABEÇALHO ctos
Printer.Line (0 + PosX, 37.5 + PosY)-(198 + PosX, 42 + PosY), QBColor(8), BF
[ô]------------------------------------------------------------------------- TITULO CABEÇALHO CTO
Printer.CurrentX = 2 + PosX
Printer.CurrentY = 38 + PosY
Printer.Print [Ô]N° CTO | REMETENTE | DESTINATARIO | NOTA FISCAL | VOLUMES | KG | VALOR DA CARGA | FRETE [Ô]
[ô]------------------------------------------------------------------------- RETANGULO ctos
Printer.Line (0 + PosX, 38 + PosY)-(198 + PosX, 155 + PosY), QBColor(8), B
[ô]------------------------------------------------------------------------- RETANGULO apolice
Printer.Line (0 + PosX, 156 + PosY)-(198 + PosX, 163 + PosY), QBColor(8), B
Printer.CurrentX = 1
Printer.CurrentY = 157.8
Printer.Print [Ô]Mercadoria Segurada Pela Apólice de[Ô]
[ô]------------------------------------------------------------------------- RETANGULO obs
Printer.Line (0 + PosX, 164 + PosY)-(198 + PosX, 185 + PosY), QBColor(8), B
Printer.CurrentX = 1
Printer.CurrentY = 165.8
Printer.Print [Ô]Obs:[Ô]
Printer.CurrentX = 1
Printer.CurrentY = 180.8
Printer.Print [Ô]TAXA:[Ô]
[ô]-------------------------------------------------------------------------VALORES
Printer.Line (0 + PosX, 186 + PosY)-(198 + PosX, 225 + PosY), QBColor(8), B
Printer.CurrentX = 1
Printer.CurrentY = 188 + PosY
Printer.Print [Ô]Nome do Proprietário:[Ô]
Printer.CurrentY = 194 + PosY
Printer.CurrentX = 1
Printer.Print [Ô]Endereço do Proprietário:[Ô]
Printer.CurrentY = 200 + PosY
Printer.CurrentX = 1
Printer.Print [Ô]Nome do Motorista:[Ô]
Printer.CurrentX = 1
Printer.CurrentY = 206 + PosY
Printer.Print [Ô]Endereço do Motorista:[Ô]
Printer.CurrentX = 1
Printer.CurrentY = 212 + PosY
Printer.Print [Ô]N° Cert. Prop. VeÃculo: [Ô] & Space(70) & [Ô]N° Ident Mot.:[Ô]
Printer.CurrentX = 1
Printer.CurrentY = 218 + PosY
Printer.Print [Ô]N° CPF Motorista:[Ô] & Space(70) & [Ô] Fone p/ Contato:[Ô]
[ô]**************************** CÓD DE BARRAS SALDO ************************
Printer.CurrentX = 22 + PosX
Printer.CurrentY = 228 + PosY
Printer.Print [Ô]SALDO[Ô] & Space(155) & [Ô]ADIANTAMENTO[Ô]
[ô]cod filial (3) / SEQ OPF (6) / OP (1) / VALOR
PRCImprime_Cod_Bar [Ô]123012345099999999999999999999[Ô], 1, 13000.5 [ô] completado 20 numeros [ô]9[ô] para dexiar mais bonito o cod de barras
[ô]**************************** CÓD DE BARRAS ADI ************************
PRCImprime_Cod_Bar [Ô]123012345099999999999999999999[Ô], 8000, 13000.5 [ô] completado 20 numeros [ô]9[ô] para dexiar mais bonito o cod de barras
[ô]------------------------------------------------------------------------- QUADRO assinaturas
Printer.Line (0 + PosX, 245 + PosY)-(198 + PosX, 265 + PosY), QBColor(8), B
Printer.CurrentX = 6.5 + PosX
Printer.CurrentY = 247 + PosY
Printer.Print [Ô]Porto Alegre, de 200[Ô]
Printer.CurrentX = 3.5 + PosX
Printer.CurrentY = 255 + PosY
Printer.Print [Ô]___________________________________[Ô]
Printer.CurrentX = 14 + PosX
Printer.Print [Ô]Assinatura do Motorista[Ô]
[ô]------------------------------------------------------------------------------- divisoria ass
Printer.Line (65 + PosX, 247 + PosY)-(65 + PosX, 263 + PosY), QBColor(8), B
Printer.CurrentX = 74 + PosX
Printer.CurrentY = 247 + PosY
Printer.FontBold = True
Printer.Print [Ô]KOCH, LEISTNER & CIA LTDA[Ô]
Printer.FontBold = False
Printer.CurrentX = 72 + PosX
Printer.CurrentY = 255 + PosY
Printer.Print [Ô]_____________________________[Ô]
Printer.CurrentX = 80.5 + PosX
Printer.Print [Ô]Assinatura da Empresa[Ô]
[ô]------------------------------------------------------------------------------- divisoria ass
Printer.Line (130 + PosX, 247 + PosY)-(130 + PosX, 263 + PosY), QBColor(8), B
Printer.CurrentX = 145 + PosX
Printer.CurrentY = 247 + PosY
Printer.Print [Ô]Recebi o Valor Acima Indicado[Ô]
Printer.CurrentX = 140 + PosX
Printer.CurrentY = 255 + PosY
Printer.Print [Ô]_____________________________[Ô]
Printer.CurrentX = 148.5 + PosX
Printer.Print [Ô]Assinatura do Motorista[Ô]
Se não me engano, Printer não tem Backcolor para os textos 
Não se pode (não se consegue) backcolor para o objeto printer.
O que se pode eventualmente fazer é imprimir uma picture colorida e por cima dela imprimir o texto, mantendo sempre a prioridade
de que a segunda impressão sempre sobrepõe a primeira, então na sequência deve-se imprimir primeiro a picture e após o texto
sobrepondo a picture.
Blz . . .
O que se pode eventualmente fazer é imprimir uma picture colorida e por cima dela imprimir o texto, mantendo sempre a prioridade
de que a segunda impressão sempre sobrepõe a primeira, então na sequência deve-se imprimir primeiro a picture e após o texto
sobrepondo a picture.
Blz . . .
Citação::
Não se pode (não se consegue) backcolor para o objeto printer.
O que se pode eventualmente fazer é imprimir uma picture colorida e por cima dela imprimir o texto, mantendo sempre a prioridade
de que a segunda impressão sempre sobrepõe a primeira, então na sequência deve-se imprimir primeiro a picture e após o texto
sobrepondo a picture.
Blz . . .
verdade! já fiz algo parecido imprimindo um quadro cinza com o método Line antes do EndDoc
Tópico encerrado , respostas não são mais permitidas