Mala Direta usando PageScript

Mensagem por **asimoes** » 09 Ago 2019 13:50

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

Mensagem por **asimoes** » 09 Ago 2019 13:53

Mensagem por **Itamar M. Lins Jr.** » 09 Ago 2019 16:58

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.

Mensagem por **asimoes** » 09 Ago 2019 19:24

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

Mensagem por **asimoes** » 09 Ago 2019 19:29

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

Mensagem por **JoséQuintas** » 10 Ago 2019 20:59

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)