Pesquisar na Comunidade

Sou novato. Alguem pode me dar uma ajuda pra configurar no componentes a impressão e corte de papel? O Caso e o seguinte, estou implementando no sistema nfce, a impressão so faz ao sair do sistema, como ficasse preso a impressão e não corta o papel então vi que nos fontes do PosPrinterTeste ele tem que ativar , porem eu tento ativar mas não consigo... e deve ser por causa que estou esquecendo de passar alguma configuração para o ativamento do posprinter, porem tentei passar as seguintes comandos: Device.Porta := cmbPortaSerial.Text ; Device.Baud := StrToInt(cmbBaudRate.Text) ; Device.Data := StrToInt(cmbDataBits.Text) ; Device.Parity := TACBrSerialParity( cmbParity.ItemIndex ) ; Device.Stop := TACBrSerialStop( cmbStopBits.ItemIndex ) ; Device.HandShake := TACBrHandShake( cmbHandShaking.ItemIndex ) ; Device.HardFlow := chHardFlow.Checked ; VerificaFlow ; Device.SoftFlow := chSoftFlow.Checked ; VerificaFlow ; .... if ACBrPosPrinter1.Ativo = true then begin if modelonfce = '1' then begin ACBrPosPrinter1.Modelo := ppEscBematech; end; if modelonfce = '2' then begin ACBrPosPrinter1.Modelo := ppEscDaruma; end; ... ACBrNFeDANFeRL1.Impressora := NomeimpNFCE;//'Daruma DR800'; ACBrNFeDANFCeFortes1.Impressora := NomeimpNFCE;//'Daruma DR800'; ACBrPosPrinter1.LinhasEntreCupons := 6; //ACBrPosPrinter1.EspacoEntreLinhas := seEspLinhas.Value; ACBrPosPrinter1.CortaPapel := true; ACBrPosPrinter1.ControlePorta := true; ACBrPosPrinter1.Ativar ; end;

Sou novato. Alguem pode me dar uma ajuda pra configurar no componentes a impressão e corte de papel? O Caso e o seguinte, estou implementando no sistema nfce, a impressão so faz ao sair do sistema, como ficasse preso a impressão e não corta o papel então vi que nos fontes do PosPrinterTeste ele tem que ativar , porem eu tento ativar mas não consigo... e deve ser por causa que estou esquecendo de passar alguma configuração para o ativamento do posprinter, porem tentei passar as seguintes comandos: Device.Porta := cmbPortaSerial.Text ; Device.Baud := StrToInt(cmbBaudRate.Text) ; Device.Data := StrToInt(cmbDataBits.Text) ; Device.Parity := TACBrSerialParity( cmbParity.ItemIndex ) ; Device.Stop := TACBrSerialStop( cmbStopBits.ItemIndex ) ; Device.HandShake := TACBrHandShake( cmbHandShaking.ItemIndex ) ; Device.HardFlow := chHardFlow.Checked ; VerificaFlow ; Device.SoftFlow := chSoftFlow.Checked ; VerificaFlow ; .... if ACBrPosPrinter1.Ativo = true then begin if modelonfce = '1' then begin ACBrPosPrinter1.Modelo := ppEscBematech; end; if modelonfce = '2' then begin ACBrPosPrinter1.Modelo := ppEscDaruma; end; ... ACBrNFeDANFeRL1.Impressora := NomeimpNFCE;//'Daruma DR800'; ACBrNFeDANFCeFortes1.Impressora := NomeimpNFCE;//'Daruma DR800'; ACBrPosPrinter1.LinhasEntreCupons := 6; //ACBrPosPrinter1.EspacoEntreLinhas := seEspLinhas.Value; ACBrPosPrinter1.CortaPapel := true; ACBrPosPrinter1.ControlePorta := true; ACBrPosPrinter1.Ativar ; end;