|
Postada em 23/02/2006 12:40 hs
Estou usando este código: Private Sub cmdImprimir_Click() Open "Lpt1:" For Output As #1 Print TB!Codigo Close #1 Printer.EndDoc End Sub
OBS.: Como eu faço para imprimir o Código em uma determinada Coordenada (x,y)?
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/02/2006 13:01 hs
Open "Lpt1:" For Output As #1 printer.currentx= X printer.currenty=Y print TB!Codigo close 1 printer.end doc
|
|
|
|
Postada em 23/02/2006 13:04 hs
vc deve usar o objeto Printer Apenas digite no seu vb "Printer." Quando vc fizer isso vc vai ver todos os métodos e propriedades do objeto printer que representa a impressora. Outra coisa se vc usa o objeto printer, vc não previsa daquele Open "lpt1"...
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 23/02/2006 13:07 hs
acho q vc está kerendo imprimir akelas etiquetas né? talvez seja melhor fazer de outra forma..... se vc tem o tamanho e as posições delas não é difícil.....
|
|
|
João Paulo
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 24/02/2006 07:25 hs
Open "Lpt1:" For Output As #1 printer.currentx= X printer.currenty=Y print TB!Codigo close 1 printer.end doc Este código não funciona para o Objeto Print #1 ele funciona somente usando o comando Printer este sim executa as coordenadas. Meu proble é q a impresso fica sobre meu controle total usando o Print #1 certo, só que não funciona as coordenas. Já usando o metodo Printer funciona as coordenadas porém a impressora da um salto sozinha assim que termina a impressão da etiqueta. Ai o cliente tem que voltar o formulário na mão, se não quando ele mandar imprimir de novo vai imprimir fora da etiqueta.
|
|
|
João Paulo
não registrado
|
|
Postada em 24/02/2006 09:30 hs
|
|
|