|
|
Postada em 06/03/2005 16:49 hs
Como assim se tiver mais de uma multiline??? O q vc pretende fazer exatamente? O seu código imprime linha a linha, uma debaixo da outra certinho mas somente se vc usar "ENTER" para pular para a linha debaixo. |
|
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/03/2005 18:03 hs
num esse codigo q eu passei num ta funcionado em mais de uma campo multimline , por exemplo ( pelo menos aki nu meu) tenho o camop Observacao, o campo descricao e o campo Localizacao, todos sao multiline se eu colocar akela variavel nos tres eu num consegui faze pega , num sei prq num , alguem tento e viu?
Jesus Cristo é O Senhor!!!
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/03/2005 18:10 hs
pq meu codigo pra imprimir ghst esta assim e repare no campo "obsdorm" la no final , num esta respeitando , tamen o limite de linha esta inda ate a folha acaber e num esta pulando , entendeu vei Dim PaginaInicial, Paginafinal, numerodecopias, i
CommonDialog1.CancelError = True
Dim sql As String
On Error GoTo imperro
'mostra a janela para impressora
CommonDialog1.ShowPrinter
'Captura os valores definidos pelo usuário na janela
PaginaInicial = CommonDialog1.FromPage
Paginafinal = CommonDialog1.ToPage
numerodecopias = CommonDialog1.Copies
For i = 1 To numerodecopias
Printer.Print
'------------------------------------------------------------------ '-----------------------------------------------------------------
Printer.CurrentY = 180 'inicio da primeira linha 1/8 de polegada(1440/8
Printer.Print Tab(0); Format(Now, "dd/mm/aa"); Space(2);
Printer.Print Format(Now, "dddd");
Printer.FontName = "Courier"
Printer.FontSize = 10
Printer.Print Tab(55); "APARTAMENTOS --------------------------------"
'----------------------------------------------------------
Printer.Print Tab(55); "Codigo "; Tab(70); txtcod.Text
Printer.Print Tab(55); "nome "; Tab(55); txtname.Text
Printer.Print Tab(55); "Bairro "; Tab(55); txtbairro.Text
Printer.Print Tab(55); "Dormitorios "; Tab(55); txtdormitorio.Text
Printer.Print Tab(55); "Sala "; Tab(55); txtsala.Text
Printer.Print Tab(55); "Cozinha "; Tab(55); txtcozi.Text
Printer.Print Tab(55); "n_Ap "; Tab(55); txtn.Text
Printer.Print Tab(55); "Garagem "; Tab(55); txtgaragem.Text
Printer.Print Tab(55); "AreaConstruida "; Tab(55); txtmetra.Text
Printer.Print Tab(55); "AreaUtil "; Tab(55); txtutil.Text
Printer.Print Tab(55); "Valor "; Tab(55); txtvalor.Text
PrintMultiline txtobsdorm
Printer.EndDoc
MsgBox "Os dados foram enviados para a impressora ... ! "
Exit Sub
imperro:
MsgBox "Impressora não esta pronta ou está com problemas , Verifique !!!"
Printer.KillDoc
Exit Sub
Next
Exit Sub
Exit Sub
Jesus Cristo é O Senhor!!!
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/03/2005 18:12 hs
eu tiro esse Printmultline daki , que eu ponho em algun lugar do form tamen Private Sub PrintMultiline(txt As TextBox)
'imprimi multiline
Dim vtxt As Variant, i As Long
vtxt = Split(txt, vbCrLf)
For i = 0 To UBound(vtxt)
Printer.Print vtxt(i)
Next i
'**********Alteração
Printer.NewPage
'*******************
Printer.EndDoc
End Sub
Jesus Cristo é O Senhor!!!
|
|
|
|
|
|
Postada em 07/03/2005 00:53 hs
Então Korn, eu testei a sua Sub para imprimir o texto q está numa textbox a qual está com a propriedade multiline = true e deu certo... A impressão saiu assim por exemplo: Nome Sobrenome Endereço, número Bairro - Cidade Só q eu coloquei desta forma na textbox "multiline": Nome Sobrenome <"ENTER"> Endereço, número <"ENTER"> Bairro - Cidade Este <"ENTER"> representa a tecla enter q teclei para separar as linhas. E deu certo. Como disse antes o seu código aparentemente está correto só q vc está criando um array nesta linha => vtxt = Split(txt, vbCrLf) , em q ele separa cada item se estiverem separados por "ENTER" digamos assim... entende?? E então... vc quer q na impressão saia assim?: Nome Sobrenome Endereço, número Bairro - Cidade Outra coisa, procure colocar somente um comando printer.endDoc ... não há necessidade de 2 caso vc vá imprimir tudo de uma vez mesmo.... qq problema é só postar t+ |
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/03/2005 10:22 hs
Ae ghost o problema nem seria esse cara o problema seria o seguinte eu tenhu um campo chamado observacao, ele é multiline e a impressao sai assim, tipo comeca a impimir no comeco da folha e eo texo vai ate o final e num pula a linha, a folha acaba eo texto num, entende?, nesse caso teria colocar esse enter tamen nesse campo?
Jesus Cristo é O Senhor!!!
|
|
|
|
