Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

netsoftclaudio

Membros
  • Content Count

    89
  • Joined

  • Last visited

Community Reputation

12 Good

1 Follower

About netsoftclaudio

  • Rank
    Membro
  • Birthday 05/20/1971

Profile Information

  • Sexo
    Masculino
  • Localização
    São Carlos - SP

Recent Profile Visitors

1,003 profile views
  1. Vc usa comando ACBrETQ para imprimir os comandos ou vc usa ACBrPosPrinter para imprimir o template já pronto ?
  2. Seria algo assim? =>Imagine que o conteúdo do memo tenha as seguintes linhas: ImprimirTexto(orNormal, 2, 2, 2, 3, 3, 'BISCOITO MARILAN RECH 335G', 0, True); ImprimirTexto(orNormal, 2, 2, 1, 8, 3, 'CHOC BRANCO'); ImprimirBarras(orNormal, barEAN13, 2, 2, 13, 5, '7896003701685', 10, becSIM); ImprimirTexto(orNormal, 3, 3, 2, 18, 32, 'R$'); ImprimirTexto(orNormal, 3, 4, 4, 15, 50, '20,59'); =>Rotina para ler o campo Memo: if (Memo_Template.Text<>EmptyStr) then begin for I := 0 to Memo_Template.Lines.Count - 1 do begin Memo_Template.Lines ; end; end; => Como iria executar cada linha do memo?
  3. Nossa que legal! Por gentileza, vc teria um exemplo para me enviar por favor, pois não tenho ideia como seria.
  4. Estou precisando imprimir etiquetas com AcbrETQ de um Campo TMemo aonde contem varias linhas. Existe essa possibilidade ? Obrigado
  5. Não encontrei nenhum exemplo com ACBRDevice, a única coisa que consegui fazer agora e deu certo, foi esse código abaixo: if Application.MessageBox('Confirma impressão de teste S/N ?','Atenção', MB_YESNO + MB_ICONQUESTION) = idYes then begin DM.ACBrPosPrinter.Porta := CB_Porta.Text; DM.ACBrPosPrinter.Modelo := TACBrPosPrinterModelo(CB_Modelo.ItemIndex); if (Memo_Template.Text <> EmptyStr) then DM.ACBrPosPrinter.Buffer.Text := Memo_Template.Text else begin Application.MessageBox('Template não informado!','Atenção', MB_OK + MB_ICONWARNING); abort; end; DM.ACBrPosPrinter.Ativar; DM.ACBrPosPrinter.Imprimir; DM.ACBrPosPrinter.Desativar; end;
  6. Bom dia a todos, Gostaria de saber se é possível carregar um arquivo texto para impressão utilizando o componente ACBrETQ, exemplo: etq.txt Conteúdo do arquivo etq.txt ^XA ~SD10 ^CF060,60 ^FWN ^F024,24^FR^FDBISCOITO MARILAN RECH 335G^FS ^CF060,60 ^FWN ^F024,64^FDCHOC BRANCO^FS ^FD040,104^BEN,96,Y,N^FD7896003701685^FS ^CFA100,100 ^FWN ^F0256,144^FDR$^FS ^CFA120,120 ^FWN ^F0400,120^FD20.59^FS ^PQ1 ^XZ ^PH ^MCY obrigado.
  7. Boa tarde a todos, Instalei o sistema em um cliente no qual o modelo da impressora é Bematech MP-S100 TH, a mesma não está pulando a quantidade de papel necessária para cortar o papel, ou seja, o usuário tem que apertar a tecla avanço da impressora para poder cortar o papel. Em todas as outras marcas e modelos que tenho instalado está funcionando normal, alguem sabe oque pode estar acontecendo em particular com esse modelo? abs Claudoi
  8. Bom dia a todos, Hoje dia "09/01/2020" fiz novamente a atualização do Fortes Report e deu tudo certo. Obrigado a todos att Claudio
  9. Ok, criei uma conta no github e já postei o problema do "Fortes Report".
  10. Boa tarde, Após ter feito a atualização do Fortes Report hoje "08/01/2020" o mesmo não está sendo instalado no Delphi 7, pois foi feito uma alteração no Fortes Report em Dezembro de 2019 e acredito que está alteração não comportou bem para Delphi 7. veja que o erro da instalação está se referindo ao arquivo RLPrinters.pas que se encontra na pasta "Source" do "Fortes Report" : O erro está indicando o arquivo RLPrinters.pas na linha (969), conforme abaixo: Se eu comentar essas linhas, dai instala normalmente o "Fortes Report". procedure TRLPrinterWrapper.CreateDeviceMode(WindowHandle: HWND); var Device, Driver, Port: array[0..MAX_PATH] of char; PrinterHandle: THandle; OldModeHandle: THandle; //hDeviceMode OldDeviceMode: PDeviceMode; //PrinterDevMode NewModeHandle: THandle; NewDeviceMode: PDeviceMode; BytesNeeded: Integer; begin Printer.GetPrinter(Device, Driver, Port, OldModeHandle); if WinSpool.OpenPrinter(@Device, PrinterHandle, nil) then try OldDeviceMode := GlobalLock(OldModeHandle); try BytesNeeded := WinSpool.DocumentProperties(WindowHandle, PrinterHandle, Device, nil, nil, 0); if BytesNeeded < 0 then raise Exception.Create('The call to DocumentProperties failed.'); NewModeHandle := GlobalAlloc(GHND, BytesNeeded); NewDeviceMode := GlobalLock(NewModeHandle); try case WinSpool.DocumentProperties(WindowHandle, PrinterHandle, Device, NewDeviceMode^, OldDeviceMode^, DM_OUT_BUFFER or DM_IN_PROMPT or DM_IN_BUFFER) of IDOK: begin Printer.SetPrinter(Device, Driver, Port, NewModeHandle); ClearSavedDevMode; SavedPrinterSettings.DevMode := GetMemory(BytesNeeded); SavedPrinterSettings.Bytes := BytesNeeded; SavedPrinterSettings.PrinterName := Printer.Printers[Printer.PrinterIndex]; CopyMemory(SavedPrinterSettings.DevMode, NewDeviceMode, BytesNeeded); end; IDCANCEL: // do nothing else raise Exception.Create('Something went wrong with setting the new printer parameters.'); end; finally GlobalUnlock(NewModeHandle); end; finally GlobalUnlock(OldModeHandle); end; finally WinSpool.ClosePrinter(PrinterHandle); end; end;
×
×
  • Create New...