ERRO EM OPEN LPT1 SIMULTANEO - VBWEB

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Voltar

Autor

Assunto: ERRO EM OPEN LPT1 SIMULTANEO

Futura

PORTO FERREIRA
SP - BRASIL

Postada em 16/11/2004 10:18 hs

estou usando a impressão direta para a porta, mas qdo acontece de duas pessoas, confirmarem ao mesmo tempo, da erro, acredito que a porta fique presa até terminar a transação, o que poderia ser feito, para contornar este erro, pensei em tratar o erro, e dar uma mensagem do tipo continua ? sim, não:, mas se optar por sim, como fazer para continuar de onde parou ?

Sandro
não registrado

Postada em 16/11/2004 13:02 hs

Como você está abrindo a Lpt1? Se estiver usando algo como: Open "Lpt1:" For OutPut as #1, então, sugiro a seguinte alteração:

Dim NumArq as integer

NumArq=FreeFile()

Open "Lpt1:" For OutPut as NumArq

FreeFile é uma função que verifica o próximo número livre para um arquivo. Você poide ter até 255 arquivos abertos em memória. Mas dois arquivos não podem usar o mesmo número.

Mas se isso não funcionar e você quiser usar o método de captura do erro, é simples: quando o usuário confirmar que quer continuar, use a instrução Resume 0 (resume zero).

Um abraço.

Sandro.

Página(s): 1/1


		CyberWEB Network Ltda. © Copyright 2000-2025 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site