salvar pdf

thiago a amaral · 14 Junho, 2023

boa tarde, utilizo o ACBrSATExtratoESCPOS1 para mandar cupom sat para imprimir na bobina e utilizo o ACBrSATExtratoFortes1 para gerar a impressão na tela, qual e o parâmetro de cada componente para salvar automático o pdf na pasta da cfe? tenho um campo caminho que salvo na qryConfigPASTA_CFE_PDF o caminho onde vai salvar o arquivo? qual seria o parâmetro correto para colocar e salvar automático o pdf?

uso desse jeito

procedure TDMSat.ConfiguraImpressoraSAT;
begin
// configurações impressão escpos

if dados.qryTerminalTIPOIMPRESSORA.AsString = '1' then
begin
ACBrSAT1.Extrato := ACBrSATExtratoFortes1;
ACBrSATExtratoFortes1.Impressora := dados.qryTerminalPORTA.Value;
end

else

begin
ACBrSAT1.Extrato := ACBrSATExtratoESCPOS1;
ACBrPosPrinter1.EspacoEntreLinhas :=
dados.qryTerminalESPACO_ENTRE_LINHAS.AsInteger;
ACBrPosPrinter1.LinhasEntreCupons :=
dados.qryTerminalLINHAS_ENTRE_CUPOM.AsInteger;
ACBrPosPrinter1.ColunasFonteNormal :=
StrToIntDef(dados.qryTerminalCOLUNAS.AsString, 42);
ACBrSATExtratoESCPOS1.MargemDireita :=
dados.qryTerminalMARGEM_DIREITA.AsFloat;
ACBrSATExtratoESCPOS1.MargemEsquerda :=
dados.qryTerminalMARGEM_ESQUERDA.AsFloat;
ACBrSATExtratoESCPOS1.MargemInferior :=
dados.qryTerminalMARGEM_INFERIOR.AsFloat;
ACBrSATExtratoESCPOS1.MargemSuperior :=
dados.qryTerminalMARGEM_SUPERIOR.AsFloat;
ACBrPosPrinter1.Porta := LowerCase(dados.qryTerminal.FieldByName('PORTA')
.AsString);
ACBrPosPrinter1.Device.Baud := dados.qryTerminalVELOCIDADE.Value;
if dados.qryTerminal.FieldByName('MODELO').Value = 'DARUMA' then
ACBrPosPrinter1.Modelo := ppEscDaruma
else if dados.qryTerminal.FieldByName('MODELO').Value = 'BEMATECH' then
ACBrPosPrinter1.Modelo := ppEscBematech
else if dados.qryTerminal.FieldByName('MODELO').Value = 'ELGIN' then
ACBrPosPrinter1.Modelo := ppEscPosEpson
else if dados.qryTerminal.FieldByName('MODELO').Value = 'DIEBOLD' then
ACBrPosPrinter1.Modelo := ppEscDiebold
else if dados.qryTerminal.FieldByName('MODELO').Value = 'EPSON' then
ACBrPosPrinter1.Modelo := ppEscPosEpson
else if dados.qryTerminal.FieldByName('MODELO').Value = 'VOX' then
ACBrPosPrinter1.Modelo := ppEscVox
else if dados.qryTerminal.FieldByName('MODELO').Value = 'POSSTAR' then
ACBrPosPrinter1.Modelo := ppEscPosStar
else if dados.qryTerminal.FieldByName('MODELO').Value = 'JIANG' then
ACBrPosPrinter1.Modelo := ppEscZJiang
else if dados.qryTerminal.FieldByName('MODELO').Value = 'GPRINTER' then
ACBrPosPrinter1.Modelo := ppEscGPrinter
else if dados.qryTerminal.FieldByName('MODELO').Value = 'EPSONP2' then
ACBrPosPrinter1.Modelo := ppEscEpsonP2

else
ACBrPosPrinter1.Modelo := ppTexto;
ACBrPosPrinter1.Ativar;
end;

ACBrSAT1.Extrato.Sistema := dados.qryParametroEMPRESA.Value;
ACBrSAT1.Extrato.ImprimeDescAcrescItem := False;
ACBrSAT1.Extrato.ImprimeCodigoEan := True;

if FilesExists(dados.qryConfigLOGOMARCA.AsString) then
ACBrSAT1.Extrato.Logo := dados.qryConfigLOGOMARCA.AsString;
ACBrSAT1.Extrato.Site := dados.qryEmpresaSITE.AsString;
ACBrSAT1.Extrato.Email := dados.qryEmpresaEMAIL.AsString;
end;