Como fazer etiqueta no fastreport ? (Resolvido)

[Ariston Santos]

Olá, amigos.

Estou precisando aprender fazer relatórios, principalmente etiquetas, no fastreport. Alguém se prontifica a me ajudar?

Preciso:

• Adquirir o fastreport;

• Aprender a usá-lo;

• Fazer etiquetas para Zebra e Argox.

Desde já agradeço.

[aferra]

bem aqui vai os exemplos

[Ariston Santos]

Olá, Aferra.

O link está quebrado. Favor verificar.

Obrigado.

[kapiaba]

http://www.toyanet.com.br/download.php

[aferra]

Acho que não é quebrado, precisa do administrador liberar.

[aferra]

blz, aprovado, pode baixar

[Ariston Santos]

Obrigado.

Ainda preciso: (1) Adquirir o FastReport; (2) Aprender a usá-lo com FWH 12.06.

Podem cobrar pela aula.

Quem se prontifica?

Aguardo.

[Luiz Fernando]

Ola Ariston, eu uso o Fast a muito anos, como varios aqui no forum, então abre um topico com titulo de Ajuda em Fastreport, e vai perguntando vc não ficara sem resposta com certeza, e o tópico poderá ajudar outros que tb queira utilizar a DLL

Abraços

Luiz Fernando

[Ariston Santos]

Olá, Alessandro (aferra) e Luiz Fernando (EMPRESOFT)

Obrigado pela ajuda fornecida.

Problema resolvido.

function Etq3colFr3()
   local oFrPrn, nTipo := 1
   nTipo := Alert("Escolha uma opção",{"Imprimir","Editar"}, "Escolha uma opção")
   IF nTipo < 1 ; RETURN NIL ; ENDIF
   oFrPrn := frReportManager():new()
   oFrPrn:SetIcon(1)                                // Icone da janela do FRH
   oFrPrn:SetTitle( 'Etiquetas' )        // Titulo da janela do FRH
   oFrPrn:LoadLangRes( 'brazil.xml')                // Arquivo de idioma
   oFrPrn:SetWorkArea( 'FR3TMPLB' , select('FR3TMPLB') )
   oFrPrn:LoadFromFile('.\modelos\fr3\Etq3col89x25.fr3') // para leitura direta de arquivo FR3
   oFrPrn:PreviewOptions:SetAllowEdit( .f. ) // inibe o botao de edicao do relatorio pelo usuario
   if nTipo == 1
      oFrPrn:ShowReport()             // aqui para gerar o preview do relatorio
   else
      oFrPrn:DesignReport()           // aqui para "desenhar" o relatorio
   endif
   oFrPrn:ClearDataSets()
   oFrPrn:DestroyFR()
return nil