Enviar impressão para duas portas.

Bom dia a todos
Recorro novamente aos amigos do fórum para ajuda que é a seguinte.

Uso o seguinte código para enviar uma impressão diretamente para a impressora matricial na porta serial.
Open "LPT1:" For Output Access Write As #1
E uso também este outro código para salvar uma copia da impressão que é gerado um arquivo TXT da impressão com o seguinte código
Open "C:\Arquiv~1\Autocom\Cupom\Cupom" & SaidaNumeroPedido & "-" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt" For Output Access Write As #1
Como usar os dois códigos juntos ao clicar de um botão.

Sou grato pela atenção de todos.

Bom dia,

Já pensaste em usar os dois comandos em cascata no evento click do botão?

Poderias gerar primeiro o arquivo, por ser mais rápido e na sequência mandarias para a impressora.

Abraços.

Saudações JUNGLI.

Já tentei sim mas da erro ao duplicar
na linha
Dim Saida, SaidaDetalhe, TipoPg, tblClientes, vendedor, VendedorControle, TblCpfCnpj