PC Toledo

Deu trabalho mais ficou do jeito que eu queria. Usando PageScript

Para etiquetas da pimaco 25,4 X 101,6 carta 20 etiquetas por folha

Ola!
Fiz com html, a pessoa imprime em A4 corta com tesoura passa cola bastonete rsrsrs, tá super "sartisfeita" não imprime na etiqueta, porque nem acha e diz que é caro!

Código: Selecionar todos

cArq := CriaArqImpressao('socios06.html')

?  '<html><head>'
?? '<meta http-equiv = "Content-Type" content="text/html; charset=iso-8859-1">'
?  '<title>Etiquetas de endereçamento sócios</title>'

If nLabel == 1
   cFonte := 'FONT: 12pt "Courier New";'
   cHeight := 'height:105px;'
ElseIf nLabel == 2
   cFonte  := 'FONT: 10pt "Courier New";'
   cHeight := 'height:90px;'
EndIf

? '<STYLE type=text/css>'
?  'p.quebra { page-break-before: always }'
? 'table,th,td{'
? '   table-layout: fixed;'
? cFonte
? '   border:none ' //1px solid #888;'
? '   border-collapse:collapse;'
? '   color:#000000;'
? '}'
? '</STYLE>'

? '</head>'
?? '<div align="center">'
?  '<table border="0" bgcolor=#000000 cellpadding="1" cellspacing="1">'

so->(DbGoTop())
Do While so->(!eof())

   ?  '<tr bgcolor="#FFFFFF">'

   For n := 1 to 2
      ?? '<td> <div id="texto" style="width:400px;' + cHeight + 'overflow:auto">'
      ??  so->nomesocio
      ?  '<br>' + so->residencia
      ?  '<br>' + so->bairroresi
      ?  '<br>' + so->cidaderesi
      ?  '<br>' + so->cepresiden + " " +  so->ufresidenc + '</td></div>'

      so->(DbSkip())
   Next
   ?? '</tr>'

/*
   If ++nLin = 10
      ? '</table>'
      ? '<p class="quebra">'
      ?  '<table border="0" bgcolor=#000000 cellpadding="1" cellspacing="1">'
      nLin := 0
   EndIf
*/
EndDo

?  '</table></html>'
FecharImpres()
hwg_Shellexecute(cArq,"open",nil,cPasta,1)
Return .T.

Saudações,
Itamar M. Lins Jr.

Itamar, obrigado pela sua dica
O meu cliente tem um contrato com os correios para envio de um jornal trimestral
A etiqueta era impressa em uma Epson matricial, mas vinha apresentando problemas
Passou para uma laser

O pagescript é muito fácil de usar, e não está desatualizado, teve uma correção em junho
Vou usando, ultimamente quero facilidades,

asimoes escreveu:O pagescript é muito fácil de usar, e não está desatualizado, teve uma correção em junho
Vou usando, ultimamente quero facilidades

Não sei, apenas à primeira vista...

A PDFClass tem opção de trabalhar em cm (ou mm, não lembro).
Nessa opção, seria só medir a etiqueta com uma régua e usar a medida na geração.

oPDF:DrawText( 2.5, 2.5, 10, 30, "Nome" )

Equivalente a 2.5cm, 10cm, 30cm (já não lembro se fiz em cm ou mm)

PC Toledo

Mala Direta usando PageScript

Mala Direta usando PageScript

Mala Direta usando PageScript

Mala Direta usando PageScript

Mala Direta usando PageScript

Mala Direta usando PageScript

Mala Direta usando PageScript