ALINHA PRINT NO VB6

M1A2X3 23/04/2011 16:04:20
#372259
AMIGOS SO NOVO AQUI NO FORUM PEÇO AUMA AJUDA GOSTARIA DE ALINHAR AS COLUNAS DESSE PRINT COMO DEVO FAZER AMIGO MEU CODIGO ESTA ANEXO ASSIM

Private Sub cmdImprimir_Click()
On Error GoTo impressora

Dim i%

If List1.ListCount = 0 Then
MsgBox [Ô]Faça primeiro o orçamento para depois imprimir a lista.[Ô], 64, Caption
Exit Sub
End If

Screen.MousePointer = 11
Printer.CurrentX = 1000
Printer.Font.Name = [Ô]Courier[Ô]
Printer.Font.Size = 8
Printer.Print [Ô][Ô]
Printer.CurrentX = 1000
Printer.Print sEMPRESA
Printer.CurrentX = 1000
Printer.Print [Ô]CNPJ 63.585.657/0001-88[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]Rua:Prof Fernando Carvalho - Centro - Codó,MA[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]Fone:(99) 3661 1144[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô][Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]Lista de Produtos[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]-------------------------------------------------------------------------------------------[Ô]

Do While i < List1.ListCount
Printer.CurrentX = 1000
Printer.Print List1.List(i) & [Ô][Ô]
i = i + 1
Loop

Printer.CurrentX = 1000
Printer.Print [Ô]--------------------------------------------------------------------------------------------[Ô]
Printer.CurrentX = 1000
Printer.Print Space(85 - Len(txtTotal.Text)) & [Ô]Total: [Ô] & txtTotal.Text
Printer.Print [Ô][Ô]
Printer.CurrentX = 1000
Printer.Print Format(Date, [Ô]dddddd[Ô])
Printer.Print [Ô][Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]_________________________[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]Assinatura do Cliente[Ô]
Printer.EndDoc
MsgBox [Ô]ENVIADO PARA IMPRESSORA.[Ô], 64, Caption
Screen.MousePointer = 0

Exit Sub
impressora:

MsgBox [Ô]A impressora não está respondendo.[Ô], 16, [Ô]Imprimir Orçamento[Ô]
Screen.MousePointer = 0

End Sub
-------------------------------------------------

MINHA IMPRESSÃO TA ASSIM, COMO DE FAZER PARA ALINHA AS COLUNAS

Lista de Produtos
-------------------------------------------------------------------------------------------
CARNE FRESCA COM MENOR PREÇO D |1 * 6,00 = 6,00
PALCA MAE GIGABATE NOVALE |1 * 1.525,00 = 1.525,00
PRODUTO NAO CADASTRADO |1 * 1,00 = 1,00
TINTA DIM ACRILEX VERDE 2 |1 * 1.250,00 = 1.250,00
--------------------------------------------------------------------------------------------
Total: 2.782,00
CHPMOTTA 23/04/2011 18:34:18
#372268
acho que o 1000 tá pouco! coloca , (vírgula que é como se fosse um tab)

Exemplo
print [Ô]TESTE TESTE TESTE[Ô],, [Ô]TESTE[Ô] ,, [Ô]TESTE
M1A2X3 24/04/2011 18:08:25
#372316
Amigo Menudo Obrigado pela dica mais me diz como faço para coloca no codigo me oriente por favor
esse é o meu codigo com implementar com o codigo que vc me passou

ese é o codigo
Private Sub cmdImprimir_Click()
On Error GoTo impressora

Dim i%

If List1.ListCount = 0 Then
MsgBox [Ô]Faça primeiro o orçamento para depois imprimir a lista.[Ô], 64, Caption
Exit Sub
End If

Screen.MousePointer = 11
Printer.CurrentX = 1000
Printer.Font.Name = [Ô]Courier[Ô]
Printer.Font.Size = 8
Printer.Print [Ô][Ô]
Printer.CurrentX = 1000
Printer.Print sEMPRESA
Printer.CurrentX = 1000
Printer.Print [Ô]CNPJ 63.585.657/0001-88[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]Rua:Prof Fernando Carvalho - Centro - Codó,MA[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]Fone:(99) 3661 1144[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô][Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]Lista de Produtos[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]-------------------------------------------------------------------------------------------[Ô]

Do While i < List1.ListCount
Printer.CurrentX = 1000
Printer.Print List1.List(i) & [Ô][Ô]
i = i + 1
Loop

Printer.CurrentX = 1000
Printer.Print [Ô]--------------------------------------------------------------------------------------------[Ô]
Printer.CurrentX = 1000
Printer.Print Space(85 - Len(txtTotal.Text)) & [Ô]Total: [Ô] & txtTotal.Text
Printer.Print [Ô][Ô]
Printer.CurrentX = 1000
Printer.Print Format(Date, [Ô]dddddd[Ô])
Printer.Print [Ô][Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]_________________________[Ô]
Printer.CurrentX = 1000
Printer.Print [Ô]Assinatura do Cliente[Ô]
Printer.EndDoc
MsgBox [Ô]ENVIADO PARA IMPRESSORA.[Ô], 64, Caption
Screen.MousePointer = 0

Exit Sub
impressora:

MsgBox [Ô]A impressora não está respondendo.[Ô], 16, [Ô]Imprimir Orçamento[Ô]
Screen.MousePointer = 0

End Sub
M1A2X3 24/04/2011 20:52:24
#372320
Citação:

:
Amigo, um esquema para ajustar as colunas com determinados espaços para não ficarem desalinhadas as colunas.

  Private Function Alinhar(Texto As String, Largura As Integer)
Alinhar = String(Largura - Len(Texto), [Ô] [Ô]) & Texto
End Function

Private Sub Form_Load()
List1.AddItem [Ô]Cod.[Ô] & Alinhar([Ô][Ô], 4) & Alinhar([Ô]PRODUTO[Ô], 8) & Alinhar([Ô][Ô], 4) & Alinhar([Ô]VALOR[Ô], 6)
List1.List(1) = [Ô]0001[Ô] & Alinhar([Ô][Ô], 4) & Alinhar([Ô]Tomate[Ô], 8) & Alinhar([Ô][Ô], 4) & Alinhar([Ô]133,25[Ô], 6)
List1.List(2) = [Ô]0002[Ô] & Alinhar([Ô][Ô], 4) & Alinhar([Ô]Coentro[Ô], 8) & Alinhar([Ô][Ô], 4) & Alinhar([Ô]20,00[Ô], 6)
List1.List(3) = [Ô]0003[Ô] & Alinhar([Ô][Ô], 4) & Alinhar([Ô]Pimentão[Ô], 8) & Alinhar([Ô][Ô], 4) & Alinhar([Ô]1,50[Ô], 6)
List1.List(4) = [Ô]0004[Ô] & Alinhar([Ô][Ô], 4) & Alinhar([Ô]Cebola[Ô], 8) & Alinhar([Ô][Ô], 4) & Alinhar([Ô]73,50[Ô], 6)
End Sub


Segue relatório para melhor análise.

Abraços!
Menudo




Tem como o amigo me dizer onde colo o codigo que vc disponibilizou te agradeço valeu pela dica
M1A2X3 25/04/2011 23:01:44
#372414
Te como vc disponibilizar o como vc fez usando o meu codigo com o seu tentei mais não consegui te agrzdeço amigo
Tópico encerrado , respostas não são mais permitidas
Voltar