private
{ Private declarations }
public
{ Public declarations }
end;
function ImprimeNFSe(pathXML, pathPDF : ShortString; tipoImp : integer) : Boolean; StdCall; external assrps;
(...)
procedure TfrmPrincipal.btnImprimeDanfeClick(Sender: TObject);
var
caminho : ShortString;
begin
{procedimento para impressão da nota. A função recebe 3 parâmetros: caminho do xml da nota,
caminho do pdf, e tipo de impressão. No segundo parâmetro deve ser informado o caminho com
nome do pdf a ser gerado caso o terceiro parâmetro seja 2.
Valores para o terceiro parâmetro:
1 - Visualizar Impressão na Tela
2 - Gerar o pdf da nota
3 - Imprimir direto na impressora default
Exemplo da chamada da função para gerar pdf: ImprimeNFSe(caminho, 'c:\nota.pdf', 2);
Exemplo da chamada da função para imprimir direto na impressora: ImprimeNFSe(caminho, '', 1);
}
caminho := editCaminhoDanfe.Text;
if(ImprimeNFSe(caminho, '', 3)) then
begin
EditStatus.Text := 'Impressão Realizada com Sucesso.';
end;
end;