USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Objeto Printer - URGENTE
VACA
LIMEIRA
SP - BRASIL
Postada em 10/10/2005 11:24 hs            
estou usando esse codigo pra mandar um arquivo pra impressora:
    Open (spv_dir & "print.txt") For Input As #1
    form.Label1.Caption = "Para cancelar a impressão Clique Aqui"
    form.Show
    While Not EOF(1)
      Line Input #1, slv_text
      Printer.Print slv_text
    Wend
    Printer.EndDoc
    Unload form

Esse form q eu carrego eh pra avisar o usuario q o arquivo estah sendo mandado pra impressora e pra dar a oportunidade dele cancelar a impressao do arquivo com o printer.killdoc

O q eu qro saber eh o seguinte, se enquanto eu estiver no while carregando o arquivo e o usuario der um killdoc, naum vai dar pau... pelo q eu estou pensado se enquanto eu carregar o arquivo o usuario cancelar a impressao o while vai continuar carregando o arquivo na impressora e vai dar pau pq eu jogo endDoc o depois do Kill.
O q eu estou pensando estah correto? é possivel dar pau, pois eu carrego e cancelo a impressao em form's diferentes?
tem como eu fazer:
    While Not EOF(1) and not printer.killdoc
? pois assim teoricamente eu pararia o carregamento da impressao assim q o usuario desse o kill.... isso dah certo?

QQ ajuda vai ser muito bem vinda
TKS

"Quando estou fraco, aí então é que sou Poderoso"
     
Gelson Porto
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 10/10/2005 16:26 hs            
Vaca, boa tarde..
       Usando as condições no While ou um flag dentro loop voce até pode conseguir, mas vai dar tempo para que isto ocorra ?? Que tamanho será este arquivo txt ?
Não seria mais adequado perguntar se confirma a impressão ou não com um
IF msgbox ("Confirma a impressão ?? ", vbyesno) = vbyes then
   While .......
 
Só uma sugestão..
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página