|
|
|
|
|
Leolima
|
PORTO ALEGRE
RS - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/11/2004 12:25 hs
Assim vc cria um retangulo e alterando os valores vc define o tamanho dele !! objPrint.Line (1, 3)-(12 + 7.8, 22 + 5), , B espero ter ajudado!!
"A mente que se abre para novas idéias jamais volta ao seu tamanho original".
(Albert Einstein) ----------------------------------------------PII-450-256MB-GForceII-64-TV/out-Soyo----- ----Agora com Framework 1.1 + Visual Studio 2003 + WinXP. Acredite se quiser!----
Leonardo Cassuriaga Fone:(51) 96394735
Tecnico Informática __o Programador VB6.0
Programador Web _>/, DBA Access
-------------------------------------------(+)/(+)__________P_o_r_t_o__A_l_e_g_r_e_RS__
Charles Darwin : As espécies que sobrevivem não são as mais fortes, mas as que melhor conseguem se adaptar às mudanças!
-----------------------------------------------------------------------------------------------
|
|
|
|
Sandro
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/11/2004 13:26 hs
A resposta do Leonardo está correta, mas gostaria de acrescentar um detalhe: ao usar o comando Line, o VB irá deslocar o ponto de impressão para baixo da grade, ou seja ele acabará dando um FormFeed na impressora, para evitar isso, crie dias variáveis para armazenar as posições X e Y atuais da impressora e depois de imprimir o retângulo, retorne a a estas posições, assim: Dim PosX as single, PosY as single PosX=Printer.CurrentX PosY=Printer.CurrentY ... Código de impressão do retângulo... Printer.CurrentX=PosX Printer.CurrentY=PosY Um Abraço, Sandro |
|
|
|
|
