COMO PARAR IMPRESSAO USANDO PRINTER

STEWARTCINTRA 16/06/2010 23:27:45
#345066
Ola galera estou imprimindo etiqueta usando objeto printer, mas quando chega no final da impressao a impressora esta pulando para outra pagina, eu naum queria isso como fazer pra ele apos imprimir para no mesmo local que acabou sem pular a pagina?

a impressora eh uma lx-300

ajudem ai
abracos
JESUEL.OLIVEIRA 16/06/2010 23:36:49
#345068
Amigo, não consegui com PRITER somente com PRINT, tentei na área de impressão do windows configurar papel da impressora mas não consegui, com print faço até chover hehehehhe.
ALVAROVB2009 17/06/2010 08:40:39
#345076 Resposta escolhida
STEWARTCINTRA infelizmente não da para parar a impressão com o printer, pois quando usamos o comando printer é o windows que controla a impressão, agora quando usamos o print, mandamos direto na porta [Ô] COM [Ô] ou [Ô] LPT [Ô] e o windows nem sabe que estamos fazendo isso, ai conforme o nosso amigo Jesuel comentou
Citação:

:
com print faço até chover hehehehhe.


é a pura realidade

Segue um exemplo de impressão com o print caso queira
Open [Ô]Lpt1[Ô] For Output As #1
Print #1, Tab(5); [Ô]P I Z Z A R I A D A V O V O[Ô]
Print #1, [Ô]---------------------------------------[Ô]
Print #1, Tab(5); [Ô]Encerramento do Pedido - [Ô] & LblPedido.Caption
Print #1, Tab(0); [Ô]Data - [Ô] & Date & [Ô] - [Ô] & Time
Print #1, [Ô]---------------------------------------[Ô]
Print #1, Tab(0); [Ô]Telefone - [Ô] & TxtTelefone.Text
Print #1, Tab(0); [Ô]Nome - [Ô] & TxtNome.Text
Print #1, Tab(0); [Ô]Endereco - [Ô] & LblEndereco.Caption
Print #1, Tab(0); [Ô]Ref: [Ô] & Ref1
Print #1, Tab(0); Ref2
Print #1, [Ô]---------------------------------------[Ô]
Print #1, Tab(15); [Ô]P E D I D O[Ô]
While Not Temp.EOF
Print #1, Tab(0); Temp!Quant & [Ô] - [Ô] & Temp!Titulo
Print #1, Tab(0); Temp!Desc1 & [Ô] [Ô] & Temp!Desc2 & [Ô] [Ô] & Temp!Desc3
Print #1, Tab(0); [Ô]Valor Unitario R$ [Ô] & Temp!ValUnit
Print #1,
Temp.MoveNext
Wend
Print #1, Tab(0); [Ô]Pagamento em [Ô] & CboPagamento.Text
Print #1, [Ô]---------------------------------------[Ô]
Print #1, Tab(0); [Ô]Obs.- [Ô] & TxtObs.Text
Print #1, [Ô]---------------------------------------[Ô]
Print #1, Tab(0); [Ô]Motoqueiro Responsavel [Ô]
Print #1, [Ô]---------------------------------------[Ô]
Print #1, Tab(0); [Ô]Valor Pedido + Entrega R$ [Ô] & ValorTotal
Print #1, [Ô]---------------------------------------[Ô]
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Close #1

E esse é uma impressão em rede
Open [Ô]\\matriz\GenericT[Ô] For Output As #1
Print #1, Tab(0); [Ô]CASA DO PASTEL-PIZZARIA[Ô]
Print #1, Tab(0); [Ô]R.Stella Maris, 326 - Vl. Sao Joao[Ô]
Print #1, Tab(0); [Ô]Telef. 2414-0675 - 2425-2724[Ô]
Print #1, [Ô]----------------------------------[Ô]
Print #1, Tab(5); [Ô]Pedido N. - [Ô] & LblPedido.Caption
Print #1, Tab(0); [Ô]Data - [Ô] & Date & [Ô] - [Ô] & Time
Print #1, [Ô]-----------------------------------[Ô]
Print #1, Tab(0); [Ô]Nome - [Ô] & TxtNome.Text
Print #1, Tab(0); [Ô]Endereco - [Ô] & LblEndereco.Caption
Print #1, Tab(0); [Ô]Bairro - [Ô] & Label15.Caption
Print #1, Tab(0); [Ô]Telefone - [Ô] & TxtTelefone.Text
Print #1, Tab(0); [Ô]Ref: [Ô] & Ref1
Print #1, Tab(0); Ref2
Print #1, [Ô]-----------------------------------[Ô]
Print #1, Tab(15); [Ô]P E D I D O[Ô]
While Not Temp.EOF
Print #1, Tab(0); Temp!Quant & [Ô] - [Ô] & Temp!Titulo
If Temp!Titulo = [Ô]MEIO / MEIO[Ô] Or Temp!Titulo = [Ô]BROTO MEIO / MEIO[Ô] Then
Print #1, Tab(0); Temp!Desc1 & [Ô] / [Ô] & Temp!Desc2
Else
Print #1, Tab(0); Temp!Desc1
End If
Print #1, Tab(0); [Ô]Valor Unitario R$ [Ô] & Temp!ValUnit
Print #1,
Temp.MoveNext
Wend
Print #1, Tab(0); [Ô]Entrega R$ 2,00[Ô]
Print #1, Tab(0); [Ô]Valor Pedido R$ [Ô] & Format(LblTotalEntrega.Caption, [Ô]###,###,##0.00[Ô])
Print #1, [Ô]---------------------------------------[Ô]
Print #1, Tab(0); [Ô]Pagamento em [Ô] & CboPagamento.Text
Print #1, [Ô]---------------------------------------[Ô]
Print #1, Tab(0); [Ô]Obs.- [Ô] & TxtObs.Text
Print #1, Tab(0); [Ô]Valor pago pelo cliente R$ [Ô] & ValorPagamento
Print #1, Tab(0); [Ô]Troco - R$ [Ô] & ValorTotal
Print #1, [Ô]---------------------------------------[Ô]
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Print #1,
Close #1

O windows nos dois casos nem sabe que eu imprimi alguma coisa

Abraço
LLAIA 17/06/2010 10:16:06
#345090
O problema tá no windows. Ou vc configura o tamanho do papel no tamnho da etiqueta na pasta de impressora ou usa o Print mesmo.
Tópico encerrado , respostas não são mais permitidas
Voltar