|
|
Postada em 31/12/2008 11:07 hs
desculpe , ficou errado acima é asssim usando o exemplo do lcramos se for imprimir num picture coloque a fonte como corrier new Printer.Print Tab(40 -len(txtnome)) ;txtnome |
|
|
|
|
|
Wellington
não registrado
|
|
Postada em 31/12/2008 16:08 hs
Alexandre, tem alguma caisa ainda errado na escrita, por que esta linha como esta não é executada! Printer.Print Tab((40 -Tamanho)) & txNome Modificada assim, o programa já roda, mas ainda não imprime... Printer.Print Tab(((40 - tamanho)) & TXENDERECO) |
|
|
|
Wellington
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 31/12/2008 16:15 hs
Alexandre, tem alguma coisa ainda errada no código da linha 3, escrita desta maneira ocorre erro, modifiquei assim, o programa é executado, mas não faz impressão! Printer.Print Tab(((40 -Tamanho)) & txnome) Printer.Print Tab(5) "Nome: "; Tamanho = ( 40 - Len( TxNome )) Printer.Print Tab((40 -Tamanho)) & txnome |
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 02/01/2009 08:23 hs
è isto ai amifo faltou & Txnome, desculpe, foi a pressa. vlu// |
|
|
|
|
|
Postada em 02/01/2009 08:29 hs
wellington, nao tem o & comercial e sim o ; ponto e virgula do jeito que passei acima, vou passar novamente aqui ok. tente desse jeito. Printer.Print Tab(40 -len(txtnome)) ;txtnome |
|
|
|
Wellington
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/01/2009 08:30 hs
Alexandre, Agora a impressão deu certo, mais ainda tenho um problema, quando a string e pequena eu tenho a alinhamento do texto pela direita correto, mas quando é grande já não acontece, o texto fica desalinhado. detalhe: A string que estou tentando alinhar são do tipo texto: Ex: Txend.text Dim teste As string Já tentei tirar os espaços Teste = Ltrim(Txend.text) ou Teste = Rtrim(Txend.text) na proxima linha faço: Obs: o espaço da minha linha de impressão começa na coluna 5 e vai até no maxima a coluna 80. Printer.print Tab(5); Endereço: |
|
|
|
