Fórum Ajuda VDOPrinter #424062

19/09/2012

0

Delphi

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

Responder

Posts

19/09/2012

Deivison Melo

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

Gostei + 0

19/09/2012

Odair Vavassori

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.

Responder

Gostei + 0

20/09/2012

Odair Vavassori

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;
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar