Postada em 03/06/2009 13:31 hs
Galera estou com um problema encardido, estou precisando imprimir etiqueta usando o comando print e quando mandei imprimir da segunda etiqueta em diante ele está pulando uma linha, eo invés de sair na mesma linha.
Estou precisando disso com uma certa urgencia
Meu comando para imprimir a etiqueta
' Manda direto para porta de impressão
Open Porta For Output As #1
Print #1, Chr(27) + Chr(107) + "0" ' Font Roman
If tb!Negrito = True Then Print #1, Chr(27) + Chr(69) ' Font Bold
If tb!italico = True Then Print #1, Chr(27) + Chr(52) ' Itálico
If tb!condensado = True Then Print #1, Chr(27) + Chr(15) ' Condensado
Dim Linha As Integer
Dim Tabulacao As Integer
Do While Not rs.EOF
Tabulacao = 0
For Linha = 1 To tb!Qteetiqlinha
Print #1, Tab(Tabulacao); IIf(tb!condensado = True, rs(1), Mid(rs(1), 1, 31)) & "" 'Associado
Print #1, Tab(Tabulacao); IIf(tb!condensado = True, rs(3), Mid(rs(3), 1, 31)) & "" 'Endereço
Print #1, Tab(Tabulacao); IIf(tb!condensado = True, rs(7), Mid(rs(7), 1, 31)) & "" 'Bairro
Print #1, Tab(Tabulacao); IIf(tb!condensado = True, rs(4), Mid(rs(4), 1, 26)) & "" & " - " & rs(5) & "" 'Cidade / estado
Print #1, Tab(Tabulacao); IIf(tb!condensado = True, rs(6), Mid(rs(6), 1, 31)) & "" 'Cep
Print #1,
If tb!condensado = True Then
Tabulacao = Tabulacao + 59
Else
Tabulacao = Tabulacao + 35
End If
rs.MoveNext
If rs.EOF Then GoTo Fim
Next
For i = 1 To tb!SaltoLinha
Print #1, ""
Next
Loop
Fim:
Close #1
|
