Ajuda VDOPrinter

Delphi

19/09/2012

Ola,preciso da ajuda de vcs. Tenho um sistema num shopping, onde o cliente que imprimir os dados do cadastro do clinte
numa entiqueta pra depois colocar num crachá. O modelo de entiqueta dele é adesiva, são 8 entiquetas por folhas ele vai imprimi numa impressora a laser. Fiz o seguinte coloquei 8 shape no form pra fazer o desenho da folha que ele tem, coloquei dois botoes um de agrupar que jogo pro uma tabela temporaria e outro de imprimir, jogo os dados na tela, agrupo e mando imprimir. Estou usando o componente VDOPrinter, meu problema é o seguinte, quando clico no shape1 e mando imprimir ele deveria imprimir os dados so na 1ªentiqueta, mas nao acontece isso ele imprimi nas 8 entiquetas, se clico na 4ª entiqueta ele imprimi da 4ª ate 8ª as anteriores ele não pega,o que esta certo.
Alguem pode me ajudar..
Agradeço desde já.
Odair
Odair Vavassori

Odair Vavassori

Curtidas 0

Respostas

Deivison Melo

Deivison Melo

19/09/2012

Qual o motivo de não utilizar um outro gerador de relatótios? Já tentou experimentar o FortesReports?
GOSTEI 0
Odair Vavassori

Odair Vavassori

19/09/2012

Qual o motivo de não utilizar um outro gerador de relatótios? Já tentou experimentar o FortesReports?



Na verdade pela posição, ja que a impressão vai ser individual, porque defino aonde começa impressão quando clico no shape. Não tentei usar outro gerador.

GOSTEI 0
Odair Vavassori

Odair Vavassori

19/09/2012

Vou postar o codigo pra ver se alguem pode me ajudar

procedure TForm36.BitBtn9Click(Sender: TObject);
var etqt:integer;
begin
if etq=0 then
exit;
with CDSEntiqueta,VDOPrinter1 do
begin
begindoc;
for etqt := 1 to 2 do
begin
newline(4);
if (etq=1) or (etq=0) then
print(11, ' CNPJ:' + CDSEntiquetacnpjcpf.AsString);
if (etq=2) or (etq=0) or (etq=1) then
print(65, ' CNPJ:' + CDSEntiquetacnpjcpf.AsString,true);
if (etq=1) or (etq=0) then
print(11, 'Fantasia:' + CDSEntiquetafantasia.AsString);
if (etq=2) or (etq=0) or (etq=1) then
print(65, 'Fantasia:' + CDSEntiquetafantasia.AsString);
newline(2);
if (etq=1) or (etq=0) then
print(11, 'RELACIONADOS');
if (etq=2) or (etq=0) or (etq=1) then
print(65, 'RELACIONADOS',true);
if (etq=1) or (etq=0) then
print(11,CDSEntiquetarel1cpf.AsString+'-'+CDSEntiquetarel1nome.AsString);
if (etq=2) or (etq=0) or (etq=1) then
print(65,CDSEntiquetarel1cpf.AsString+'-'+CDSEntiquetarel1nome.AsString,true);
if (etq=1) or (etq=0) then
print(11,CDSEntiquetarel2cpf.AsString+'-'+CDSEntiquetarel2nome.AsString);
if (etq=2) or (etq=0) or (etq=1) then
print(65,CDSEntiquetarel2cpf.AsString+'-'+CDSEntiquetarel2nome.AsString,true);
if (etq=1) or (etq=0) then
print(11,CDSEntiquetarel3cpf.AsString+'-'+CDSEntiquetarel3nome.AsString);
if (etq=2) or (etq=0) or (etq=1) then
print(65,CDSEntiquetarel3cpf.AsString+'-'+CDSEntiquetarel3nome.AsString,true);
if (etq=1) or (etq=0) then
print(11, 'GUIA:' + CDSEntiquetacodigoguia.AsString+'-'+CDSEntiquetanoguia.AsString);
if (etq=2) or (etq=0) or (etq=1) then
print(65, 'GUIA:' + CDSEntiquetacodigoguia.AsString+'-'+CDSEntiquetanoguia.AsString,true);
if (etq=3) or (etq=4) then
newline(7)
else
newline(9);
if (etq=3) or (etq=0) or (etq=1) or (etq=2) then
print(11, ' CNPJ:' + CDSEntiquetacnpjcpf.AsString);
if (etq=4) or (etq=0) or (etq=3) or (etq=2) or (etq=1) then
print(65, ' CNPJ:' + CDSEntiquetacnpjcpf.AsString,true);
if (etq=3) or (etq=0) or (etq=1) or (etq=2) then
print(11, 'Fantasia:' + CDSEntiquetafantasia.AsString);
if (etq=4) or (etq=0) or (etq=3) or (etq=2) or (etq=1) then
print(65, 'Fantasia:' + CDSEntiquetafantasia.AsString);
newline(2);
if (etq=3) or (etq=0) or (etq=2) or (etq=1) then
print(11, 'RELACIONADOS');
if (etq=4) or (etq=0) or (etq=3) or (etq=2) or (etq=1) then
print(65, 'RELACIONADOS',true);
if (etq=3) or (etq=0) or (etq=2) or (etq=1) then
print(11,CDSEntiquetarel1cpf.AsString+'-'+CDSEntiquetarel1nome.AsString);
if (etq=4) or (etq=0) or (etq=3) or (etq=2) or (etq=1) then
print(65,CDSEntiquetarel1cpf.AsString+'-'+CDSEntiquetarel1nome.AsString,true);
if (etq=3) or (etq=0) or (etq=2) or (etq=1) then
print(11,CDSEntiquetarel2cpf.AsString+'-'+CDSEntiquetarel2nome.AsString);
if (etq=4) or (etq=0) or (etq=3) or (etq=2) or (etq=1) then
print(65,CDSEntiquetarel2cpf.AsString+'-'+CDSEntiquetarel2nome.AsString,true);
if (etq=3) or (etq=0) or (etq=2) or (etq=1) then
print(11,CDSEntiquetarel3cpf.AsString+'-'+CDSEntiquetarel3nome.AsString);
if (etq=4) or (etq=0) or (etq=3) or (etq=2) or (etq=1) then
print(65,CDSEntiquetarel3cpf.AsString+'-'+CDSEntiquetarel3nome.AsString,true);
if (etq=3) or (etq=0) or (etq=2) or (etq=1) then
print(11, 'GUIA:' + CDSEntiquetacodigoguia.AsString+'-'+CDSEntiquetanoguia.AsString);
if (etq=4) or (etq=0) or (etq=3) or (etq=2) or (etq=1) then
print(65, 'GUIA:' + CDSEntiquetacodigoguia.AsString+'-'+CDSEntiquetanoguia.AsString,true);
if (etq=5) or (etq=6) then
newline(16)
else
newline(9);
if (etq=5) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(11, ' CNPJ:' + CDSEntiquetacnpjcpf.AsString);
if (etq=6) or (etq=0) or (etq=5) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(65, ' CNPJ:' + CDSEntiquetacnpjcpf.AsString,true);
if (etq=5) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(11, 'Fantasia:' + CDSEntiquetafantasia.AsString);
if (etq=6) or (etq=0) or (etq=5) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(65, 'Fantasia:' + CDSEntiquetafantasia.AsString);
newline(2);
if (etq=5) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(11, 'RELACIONADOS');
if (etq=6) or (etq=0) or (etq=5) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(65, 'RELACIONADOS',true);
if (etq=5) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(11, CDSEntiquetarel1cpf.AsString+'-'+CDSEntiquetarel1nome.AsString);
if (etq=6) or (etq=0) or (etq=5) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(65, CDSEntiquetarel1cpf.AsString+'-'+CDSEntiquetarel1nome.AsString,true);
if (etq=5) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(11, CDSEntiquetarel2cpf.AsString+'-'+CDSEntiquetarel2nome.AsString);
if (etq=6) or (etq=0) or (etq=5) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(65, CDSEntiquetarel2cpf.AsString+'-'+CDSEntiquetarel2nome.AsString,true);
if (etq=5) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(11, CDSEntiquetarel3cpf.AsString+'-'+CDSEntiquetarel3nome.AsString);
if (etq=6) or (etq=0) or (etq=5) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(65, CDSEntiquetarel3cpf.AsString+'-'+CDSEntiquetarel3nome.AsString,true);
if (etq=5) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(11, 'GUIA:' + CDSEntiquetacodigoguia.AsString+'-'+CDSEntiquetanoguia.AsString);
if (etq=6) or (etq=0) or (etq=5) or (etq=2) or (etq=1) or (etq=3) or (etq=4) then
print(65, 'GUIA:' + CDSEntiquetacodigoguia.AsString+'-'+CDSEntiquetanoguia.AsString,true);
if (etq=7) or (etq=8) then
newline(21)
else
newline(9);
if (etq=7) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(11, ' CNPJ:' + CDSEntiquetacnpjcpf.AsString);
if (etq=8) or (etq=0) or (etq=7) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(65, ' CNPJ:' + CDSEntiquetacnpjcpf.AsString,true);
if (etq=7) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(11, 'Fantasia:' + CDSEntiquetafantasia.AsString);
if (etq=8) or (etq=0) or (etq=7) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(65, 'Fantasia:' + CDSEntiquetafantasia.AsString);
newline(2);
if (etq=7) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(11, 'RELACIONADOS');
if (etq=8) or (etq=0) or (etq=7) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(65, 'RELACIONADOS',true);
if (etq=7) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(11, CDSEntiquetarel1cpf.AsString+'-'+CDSEntiquetarel1nome.AsString);
if (etq=8) or (etq=0) or (etq=7) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(65, CDSEntiquetarel1cpf.AsString+'-'+CDSEntiquetarel1nome.AsString,true);
if (etq=7) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(11, CDSEntiquetarel2cpf.AsString+'-'+CDSEntiquetarel2nome.AsString);
if (etq=8) or (etq=0) or (etq=7) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(65, CDSEntiquetarel2cpf.AsString+'-'+CDSEntiquetarel2nome.AsString,true);
if (etq=7) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(11, CDSEntiquetarel3cpf.AsString+'-'+CDSEntiquetarel3nome.AsString);
if (etq=8) or (etq=0) or (etq=7) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(65, CDSEntiquetarel3cpf.AsString+'-'+CDSEntiquetarel3nome.AsString,true);
if (etq=7) or (etq=0) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(11, 'GUIA:' + CDSEntiquetacodigoguia.AsString+'-'+CDSEntiquetanoguia.AsString);
if (etq=8) or (etq=0) or (etq=7) or (etq=2) or (etq=1) or (etq=3) or (etq=4) or (etq=5) or (etq=6) then
print(65, 'GUIA:' + CDSEntiquetacodigoguia.AsString+'-'+CDSEntiquetanoguia.AsString,true);
etq:=0;
NewPage();
end;
enddoc;
end;
end;
GOSTEI 0
POSTAR