PROPRIEDADE FONTTRANSPARENT

EDERMIR 04/04/2010 22:46:08
#338544
Boas.

Estou tentando criar uma folha com MARCA D[ô]AGUA.

Meu problema é que ao IMPRIMIR a folha, na primeira SEMPRE ficam os [Ô]brancos[Ô] ao redor das letras. Após o NEWPAGE fica tudo normal.

Ao encerrar com ENDDOC, o problema retorna. Alguém tem alguma solução?

Já coloquei um NEWPAGE logo no início mas gera uma folha em branco.
EDERMIR 04/04/2010 23:32:21
#338548
Aparentemente eu resolvi o problema. Bastou colocar o ENDDOC logo após definir como FONTTRANSPARENT. Assim:

        Dim objprint As Object
        Set objprint = Printer
        objprint.PaperSize = 9
        objprint.FontTransparent = True
        objprint.EndDoc
.
.
.
ROTINA DE IMPRESSÃO
.
.
.
Tópico encerrado , respostas não são mais permitidas
Voltar