PRINTER

USUARIO.EXCLUIDOS 05/12/2006 12:29:56
#188058
Este éo meu codigo uso o objeto printer ..... gostaria de saber se tem como colocar espaço entre as impressoes :: Exemplo
---> Nome: Jose Idade : 23 se naum tiver preenchido ele fica assim
---> Nome: Idade: 23 se tem como ficar assim
---> Nome: Idade: 23


Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, 20, 0
Printer.FontSize = "8"
Printer.Print "|"; String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.FontBold = True
Printer.Print "|"; Tab(50); " SEAPP - CADASTRO PACIENTE "; Tab(160); "|"
Printer.FontBold = False
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Nº Triagem : "; txtNumT.Text; " | "; " Prontuario :"; txtPront.Text; " | "; " Triagem :"; txtTria.Text; " | "; "Inscrição :"; txtInscr(1).Text; " | "; "Profissional_I :"; cmbProfI(0).Text; " | "; "Profissional_T :"; cmbProfT(1).Text; Tab(160); "|" '
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Profissional_GT :"; cmbProfGt(2).Text; " | "; "GT :"; txtGt.Text; " | "; "Nome_Paci :"; txtNome(1).Text; " | "; " Data_Nasc :"; txtNasc.Text; " | "; " Idade :"; txtIdade(3).Text; " | "; " RG :"; txtRG.Text; " | "; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); "Est_Civil :"; cmbEstCivil(3).Text; "| Quem Fez a Inscr? Gr de Parentesco :"; txtQuemFez(2).Text; " | "; " Ocupação :"; txtOcup(7).Text; " | "; " Parente \ Conhecido :"; txtParente(0).Text; " | "; " Grau Parentesco :"; txtGrau(1).Text; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Nome / Resp / Conj :"; txtNomeResp(1).Text; " | "; " Est_Civil_Resp :"; cmbEstCivil(0).Text; " | "; "Qualificação :"; txtQualif(0).Text; " | "; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Ocup.Conj / Resp :"; txtOcup(1).Text; " | "; " Filhos / Irmãos :"; rsPront("Filhos_irmaos"); " | "; " Nomes :"; txtNoFi(0).Text; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Estuda?"; txtEst(1).Text; " | "; " Série :"; txtSer(1).Text; " | "; " Horário :"; txtHor(1).Text; " | "; " Creche EGJ :"; txtCreche(1).Text; " | "; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Nome da Escola :"; txtNoEsc(2).Text; " | "; " End :"; txtEndEsc(2).Text; " | "; " Num :"; txtNumEsc(2).Text; " | "; " Bairro :"; txtBairroEsc(4).Text; " | "; " Cep :"; txtCepEsc(5).Text; " | "; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Fone :"; txtFoneEsc(6).Text; " | Professor :"; txtProfessora(0).Text; " | "; " Coordenador :"; txtCoor(1).Text; " | "; " Encaminhado de ?"; txtEnca(3).Text; " | "; "Data Enca :"; txtDataEnc.Text; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Queixa Inicial : "; Tab(160); "|"
Printer.Print "|"; Tab(4); Mid(rsPront("Queixa_Inicial"), 1, 149); Tab(160); "|"
Printer.Print "|"; Tab(4); Mid(rsPront("Queixa_Inicial"), 150, 149); Tab(160); "|"
Printer.Print "|"; Tab(4); Mid(rsPront("Queixa_Inicial"), 300, 149); Tab(160); "|"
Printer.Print "|"; Tab(4); Mid(rsPront("Queixa_Inicial"), 449, 149); Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Queixa Final : "; Tab(160); "|"
Printer.Print "|"; Tab(4); Mid(rsPront("Compl_Queixa"), 1, 149); Tab(160); "|"
Printer.Print "|"; Tab(4); Mid(rsPront("Compl_Queixa"), 150, 149); Tab(160); "|"
Printer.Print "|"; Tab(4); Mid(rsPront("Compl_Queixa"), 300, 149); Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Codigo Triagem : "; rsPront("Cod_Triagem"); " | "; " Perfil : "; rsPront("Perfil"); " | "; Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Observações : "; Tab(160); "|"
Printer.Print "|"; Tab(4); Mid(rsPront("OBS"), 1, 149); Tab(160); "|"
Printer.Print "|"; Tab(4); Mid(rsPront("OBS"), 150, 149); Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Periodo de Atendimento : "; rsPront("Periodo_atend"); " | "; " Compromisso : "; rsPront("compromisso"); " | "; " Nomes Acompanhantes : "; rsPront("nomes_acomp"); " Responsável : "; rsPront("Resp"); Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Outra Opção : "; rsPront("outra_opcao"); " | "; " Acompanhante : "; rsPront("Acompanhante"); " | "; " Grau Acomp. : "; rsPront("grau_acomp"); " | "; " Data_Termo_Resp : "; rsPront("Data_Termo_Resp"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Data Pront "; rsPront("Data_Pront"); " | "; " Atendimento : "; rsPront("Atend"); " | "; "Data Enc Seapp : "; rsPront("Data_Enc_Seapp"); " | "; " Dias da Semana : "; rsPront("DiasdaSemana"); " | "; "Priodo de Atend. : "; rsPront("Periodo_atend"); Tab(160); "|"
Printer.Print "|"; Tab(2); " Novos Enc. : "; rsPront("Novos_Enc"); " | "; " Data Novos Enc . "; rsPront("Data_Novos_Enc"); " | "; " Datas de Atend. : "; rsPront("Datas_Atend"); " | "; " Datas Faltas : "; rsPront("Datas_Faltas"); Tab(160); "|"
Printer.Print "|"; Tab(2); " R E : "; rsPront("R_E"); " | "; " Data R E : "; rsPront("Data_RE"); " | "; " Novos RE's : "; rsPront("Novos_REs"); " | "; " Data Novos RE's : "; rsPront("Data_Novo_RE"); Tab(160); "|"
Printer.Print "|"; Tab(2); String(182, "*"); Tab(160); "|"
Printer.FontSize = "8"
Printer.FontBold = True
Printer.Print "|"; Tab(2); " Pelo presente instrumento firma-se um compromisso tendo de um lado o SEAPP - Serviço de Atendimento "; Tab(150); "|"
Printer.Print "|"; Tab(2); Tab(150); "|"
Printer.Print "|"; Tab(2); " Psicológico, Psicopedagógico e Fonoaudiológico à  Comunidade, neste ato representado "; Tab(150); "|"
Printer.Print "|"; Tab(2); Tab(150); "|"
Printer.Print "|"; Tab(2); " por______________________________________Nº Inscrição em orgão de classe___________________________,"; Tab(150); "|"
Printer.Print "|"; Tab(2); Tab(150); "|"
Printer.Print "|"; Tab(2); " integrante da equipe de profissionais desta Instituição, e outro__________________________________ "; Tab(150); "|"
Printer.Print "|"; Tab(2); Tab(150); "|"
Printer.Print "|"; Tab(2); " R.G Nº______________________( ) Responsável por/( )paciente_______________________________________"; Tab(150); "|"
Printer.Print "|"; Tab(2); Tab(150); "|"
Printer.Print "|"; Tab(2); " Nº Prontuário_______________ o qual afirma estar ciente do serviço que nos propomos a prestar e das "; Tab(150); "|"
Printer.Print "|"; Tab(2); Tab(150); "|"
Printer.Print "|"; Tab(2); " regras e obrigações que lhe cabem para obtenção deste serviço."; Tab(150); "|"
Printer.Print "|"; Tab(2); " ___________________________________"; " ______________________________________"; Tab(150); "|"
Printer.Print "|"; Tab(2); " Profissional Dados"; " Paciente / Responsável "; Tab(150); "|"
Printer.FontSize = "8"
Printer.FontBold = False
Printer.Print ; Tab(2); String(182, "*"); Tab(160);
Printer.Print
Printer.Print
Printer.NewPage
USUARIO.EXCLUIDOS 05/12/2006 12:44:46
#188063
Amigo e so usar o Tab(),... como vc esta usando...

Ai ele sempre vai manter o mesmo espaco, entre um e outro.
Nome: Jose Idade : 23 se naum tiver preenchido ele fica assim
---> Nome: Idade: 23 se tem como ficar assim
---> Nome: Idade: 23

printer.print; Tab(2); "Nome :"; Tab(7); sNome; Tab(25);"Idade"; tab(31); sIdade
HUGOSSOUZA 05/12/2006 12:56:46
#188066 Resposta escolhida
ou vc pode fazer assim tbm...
left(sNome & space(30),30)

vc preenche com 30 espaços e depois pega só os 30 primeiros caracteres...
se não tiver o nome ele preenhe com 30 espaços... nessa posição vai sempre ficar fixo com 30.
ai vc define o tamanho maximo de caracteres o nome pode ter..
Tópico encerrado , respostas não são mais permitidas
Voltar