Pessoal é o seguinte,

Gerei um arquivo de texto a partir de um relatório, e estou com o seguinte problema:

No cabeçalho está tudo certo, mas no detalhe do relatório, ou seja, onde ficam os produtos a serem listados acontece o seguinte: a cada 4 (quatro) linhas impressas, 1 (uma) sai em branco!

O que posso fazer para resolver o problema, ou seja, não ter essa linha em branco!


usei o seguinte código:

Private Sub Comando18_KeyPress(KeyAscii As Integer)

Dim stAppName As String
DoCmd.OutputTo acReport, "Formulário Fechamento", "MS-DOSText(*.txt)", "c:\Pedido.txt", False, ""
stAppName = "C:\imprime.bat"
Call Shell(stAppName, 1)

Exit_Comando18_Click:
Exit Sub

Err_Comando18_Click:
MsgBox Err.Description
Resume Exit_Comando18_Click

End Sub

----------------

O arquivo imprime.bat tem o seguinte conteúdo:

@echo off
type >prn c:\pedido.txt
del c:\pedido.txt


Desde já agradeço a atenção e muito obrigado.


Nivas

This message has been edited. Last edited by: Luiz Cláudio C. V. Rocha,

Como voce está imprmindo direto pra impressora(via DOS), utilize o comando
Open "c:\Pedidos.txt" For Output As #1
Print #NomeArquivo, "" ' linha em branco
Print #NomeArquivo, "NomeCliente"
para imprimir para o arquivo texto.
Desta forma, voce poderá formatar as linhas a serem impressas no comando do arquivo.bat
Veja exemplos no Help do Access, se ficar em dúvida retorne.

Obrigado pela resposta...

Ajudou bastante... agora outra coisa, se puder ajudar...

seguinte:

como vc viu imprimo direto para a impressora via MS-DOS.

Agora tenho um outro micro em rede e tenho que mandar imprimir nesta mesma impressora.

É possivel imprimir direto nesta impressora via MS-DOS em rede?

Desde já agradeço a atenção.


Nivas

Nivas
Copie e cole esses códigos em dois módulos:
====basPrintPort ====

Function PrintPort()
On Error GoTo Err_imprimir_Click


Dim dr As aht_tagDeviceRec

If ahtGetDefaultPrinter(dr) Then
PrintPort = dr.drPort
End If

Exit_Imprimir_Click:
Exit Function

Err_imprimir_Click:
If Err.Number = 76 Or Err.Number = 53 Then
MsgBox "Atenção!@Impressora desligada ou desconectada!@", vbExclamation
Else
MsgBox Err.Number & " - " & Err.Description, vbCritical
End If
Resume Exit_Imprimir_Click
====fim do primeiro módulo---

===basDefaultPrinter=====
Function ahtGetDefaultPrinter(dr As aht_tagDeviceRec) As Boolean

Dim strBuffer As String

strBuffer = ahtGetINIString("Windows", "Device")
If Len(strBuffer) > 0 Then
With dr
.drDeviceName = ahtGetToken(strBuffer, ",", 1)
.drDriverName = ahtGetToken(strBuffer, ",", 2)
.drPort = ahtGetToken(strBuffer, ",", 3)
End With
ahtGetDefaultPrinter = True
Else
ahtGetDefaultPrinter = False
End If
End Function
====fim do segundo módulo ===

no botão imprimir do form coloque:

dim NomeArquivo

NomeArquivo = FreeFile 'veja Freefile no help do Acess

Open PrintPort For Output As #NomeArquivo

Print #NomeArquivo, "" 'linha em branco
Print #NomeArquivo, "NomeCliente"
Print #NomeArquivo, "Endereço"


O outro pc da rede deve ter como impressora padrão a impressora do pc que vc quiser.
Se o teu windows for XP a coisa complica um pouco mais, se for o caso, retorne.