Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
29 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 28 Visitantes :: 2 Motores de busca

ImRicoh

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 2

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

Estatísticas
Temos 6991 usuários registrados
O último usuário registrado atende pelo nome de cpmacedo

Os nossos membros postaram um total de 8 mensagens em 3 assuntos

Comandos para Impressão via código

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Comandos para Impressão via código

Mensagem por Rosangela Pires em 13/2/2013, 22:57

Amigos,

Como postei anteriormente estou tentanto fazer um relatório via código e estou com algumas dúvidas que são :

Já descobri por um post no forum que posso utilizar SET PRINTER FONT 'DRAFT 10cpi',10, para configuar a fonte e o tamanha da mesma.

Agora tenho as seguintes dúvidas :

1- Nesse mesmo post, no exemplo, foi aplicado o código "???CHR(27)+"C"+CHR(32)"
O Que ele faz...

2- Como faço para definir o papel se A4 ou Carta e a orientação se Retrato ou Paisagem..

3- Criei um Cursor do tipo "Create Cursor TEMPPRINT (Nome C(30), Telefone C(15))"
e nele por "append from" inclui dados de uma outra tabela.
Quando criei o relatorio por coluna, a linha de impressão fica desalinhada, ou seja, o campo nome possue 30 caracteres contudo na impressão se não forem preenchidos todos os 30 caracteres os espaços em branco desaparecem desalinhando a linha de impressão.
Isso com todos os campos do Cursor criado.
Se o campo telefone não for todo preenchido os espaços em branco desaparecem.
Tenho como corrigir isso.
Quando o relatório é gerado pelo gerenciador de relatórios os espaços são mantidos sem haver o desalinhamento das colunas.

Alguem pode me ajudar....

[]´s

Rosangela Pires




Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Julio em 14/2/2013, 07:58

Isso é para ser impresso em impressora matricial?

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Rosangela Pires em 14/2/2013, 08:33

Ola Julio,

Não.

Impressora Laser ou Jato de Tinta.

[]´s

Rosangela Pires

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Julio em 14/2/2013, 09:48

Precisa ser via codigo, nao pode ser pelo report wizard do proprio VFP?

Veja este codigo de uma etiqueta que o cliente quiz que fosse impresso via impressora matricial e veja se lhe ajuda.


Código:
    SELECT identcasal,anilham,corm,anilhaf,corf,dtcasala,localgail,criadnro;
      FROM casal_c INTO CURSOR Pesq1

    SELECT Pesq1
    DO WHILE ! EOF()
      SELECT pesq1
      a1=corm
      a2=corf
      a3=identcasal
      a4=anilham
      a5=anilhaf
      a6=dtcasala
      a7=localgail
      a8=criadnro
      SELECT corobjo
      SET ORDER TO cod_cor
      SEEK ALLTRIM(a1)
      abvm=abreviatu
      SELECT corobjo1
      SET ORDER TO cod_cor
      SEEK ALLTRIM(a2)
      abvf=abreviatu
      SELECT tmp
      APPEND BLANK
      replace abrevm WITH abvm
      replace abrevf WITH abvf
      replace identcasal WITH a3
      replace anilham WITH a4, anilhaf WITH a5, dtcasala WITH a6
      replace localgail WITH a7, corm WITH a1, corf WITH a2
      replace criadnro WITH a8
      SELECT pesq1
      skip
    ENDDO
    SELECT tmp
    GO top
    MESSAGEBOX("Escolha a impressora e o modelo de papel",0+16,"Aviso do Sistema!")
*SYS(1037)
*DO etiqfed
*Getprinter() && aqui voce seleciona a impressora
sys(1037)
*
STORE 0 TO L
SELECT tmp
INDEX ON ALLTRIM(identcasal) TAG tmp
SET ORDER TO tmp
GO TOP
SET DELE ON
SET DEVICE TO PRINTER
SET PRINTER ON
SET DEVI TO PRINT
L=0
IF NOT EOF()
DO WHILE .NOT. EOF()
  @ L,00 SAY chr(27)+chr(67)+chr(9)+chr(18)
  @ L,00 SAY "Criadouro Nr"
  @ L,14 SAY criadnro
  @ L,26 SAY "Gaiola:"
  @ L,32 SAY localgail
  L=L+1
  @ L,00 SAY "MACHO: "
  @ L,10 say ALLTRIM(anilham)
  L=L+1
  @ L,00 SAY "COR: "
  @ L,10 say ALLTRIM(corm)
  @ L,22 say ALLTRIM(abrevm)
  L=L+1
  @ L,00 SAY "FEMEA: " 
  @ L,10 say ALLTRIM(anilhaf)
  L=L+1
  @ L,00 SAY "COR: "
  @ L,10 say ALLTRIM(corf)
  @ L,22 say ALLTRIM(abrevf )
  L=L+1
  @ L,00 say dtcasala
  @ L,12 SAY "Ident.: "
  @ L,25 say identcasal
  L=L+1
  @ L,00 SAY "OBS__________________________________"
  L=L+1
  @ L,00 SAY "_____________________________________"
  L=L+2
  SELECT tmp
  SKIP

  if L >=73
    l=0
  endif
 
  IF EOF()
    EXIT
  ENDIF

ENDDO

ELSE
  WAIT WINDOW 'NÃO EXISTEM REGISTROS PARA IMPRIMIR' TIMEOUT 1
ENDIF

SET DEVICE TO SCREEN
SET PRINT TO
SET PRINT OFF

RELEASE Thisform

Veja se estas instruções lhe ajuda tambem, foi feito baseado para utilizar o codigo acima.

Clique Aqui Para Download

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Julio em 14/2/2013, 13:13

Rosangela

Código:
"???CHR(27)+"C"+CHR(32)"
Se não me engano o codigo acima é para configurar o tamanho do papel. Isto para impressora matricial.

Lembra quando saiu as impressoras deskjet HP e para utilizar esta impressora no clipper utilizamos estas configurações?
Voce chegou a utilizar, isso foi bem no inicio.
Código:
*
* FONTEHP.PRG | CARACTERES PARA IMPRESSAO NA IMPRESSORA SERIE HP-DESKJET
* JULIO
*
*// TAMANHO DO PAPEL, TEXTO E ORIENTACAO DA PAGINA
OFICIO=CHR(27)+CHR(38)+CHR(108)+CHR(65) // TAMANHO DO PAPEL
A4=CHR(27)+CHR(38)+CHR(108)+CHR(50)+CHR(54)+CHR(65) // TAMANHO DO PAPEL
PAISAGEM=CHR(27)+CHR(38)+CHR(108)+CHR(49)+CHR(79) // ORIENTACAO
RETRATO=CHR(27)+CHR(38)+CHR(108)+CHR(48)+CHR(79) // ORIENTACAO
LENGH=CHR(27)+CHR(38)+CHR(108)+'#070#'+CHR(80) // COMPRIMENTO DA PAGINA
LENTXT=CHR(27)+CHR(38)+CHR(108)+'#070#'+CHR(70) // COMPRIMENTO DA PAGINA
TOPO=CHR(27)+CHR(38)+CHR(108)+'#000#'+CHR(69) // TOPO DA PAGINA

*// TIPOS DE LETRA
ELITE=CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(84)
TIMES=CHR(27)+CHR(40)+CHR(115)+CHR(52)+CHR(49)+CHR(48)+CHR(49)+CHR(84)
LETTER=CHR(27)+CHR(40)+CHR(115)+CHR(54)+CHR(84)
UNIVERS=CHR(27)+CHR(40)+CHR(115)+CHR(53)+CHR(50)+CHR(84)

*// QUALIDADE DE IMPRESSAO
CARTA=CHR(27)+CHR(40)+CHR(115)+CHR(50)+CHR(81)
RASCUNHO=CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(81)

*// ESTILO DE LETRAS
VERTIC=CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(83)
ITALIC=CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(83)
NORMAL=CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(66)
BOLD=CHR(27)+CHR(40)+CHR(115)+CHR(51)+CHR(66) //NEGRITO
EXTRA=CHR(27)+CHR(40)+CHR(115)+CHR(55)+CHR(66)
PC850=CHR(27)+CHR(40)+CHR(115)+'#06#'+CHR(72) //CONJUNTO DE CARACTERES

*// TAMANHO DOS CARACTERES (CPP-CARC. POR POLEGADAS)
TAM0=CHR(27)+CHR(40)+CHR(115)+'04'+CHR(86)
TAM1=CHR(27)+CHR(40)+CHR(115)+'10'+CHR(86)

*// TAMANHO DO PONTO - ALTURA DO CARACTERE
EXPAND=TAM1+CHR(27)+CHR(40)+CHR(115)+'06'+CHR(72) //48
EXPRED=TAM1+CHR(27)+CHR(40)+CHR(115)+'08'+CHR(72) //80
NOREXP=TAM1+CHR(27)+CHR(40)+CHR(115)+'11'+CHR(72) //80
NORM=TAM0+CHR(27)+CHR(40)+CHR(115)+'10'+CHR(72) //80
NORM0=TAM1+CHR(27)+CHR(40)+CHR(115)+'10'+CHR(72)
NORM1=TAM0+CHR(27)+CHR(40)+CHR(115)+'11'+CHR(72) //96
NORM2=TAM0+CHR(27)+CHR(40)+CHR(115)+'12'+CHR(72) //96
NORM3=TAM1+CHR(27)+CHR(40)+CHR(115)+'13'+CHR(72) //96
NORM4=TAM1+CHR(27)+CHR(40)+CHR(115)+'20'+CHR(72) //96
REDUZ1=TAM0+CHR(27)+CHR(40)+CHR(115)+'15'+CHR(72) //133
REDUZ2=TAM1+CHR(27)+CHR(40)+CHR(115)+'15'+CHR(72)
REDUZ3=TAM1+CHR(27)+CHR(40)+CHR(115)+'17'+CHR(72)
REDUZ4=TAM0+CHR(27)+CHR(40)+CHR(115)+'17'+CHR(72) //160
REDUZ5=TAM1+CHR(27)+CHR(40)+CHR(115)+'17'+CHR(72) //160
REDUZ6=TAM0+CHR(27)+CHR(40)+CHR(115)+'30'+CHR(72) //170

*// SOMBREAMENTO
PATTERN=CHR(27)+CHR(42)+CHR(118)+CHR(50)+CHR(84)
GRAY=CHR(27)+CHR(42)+CHR(99)+'#1#'+CHR(71)
SOLIDO=CHR(27)+CHR(42)+CHR(118)+CHR(48)+CHR(84)
DEFAUT=CHR(27)+CHR(40)+CHR(115)+CHR(48)+CHR(66)+VERTIC
ECONO=CHR(27)+CHR(40)+CHR(115)+CHR(49)+CHR(81)

*// ENVIANDO OS COMANDOS PARA IMPRESSORA
L=0
SET DEVICE TO PRINT
L=L+1
*@ L,10 SAY OFICIO+LENGH+LENTXT+PC850+ELITE+TOPO+ECONO+NORM+'TESTE'
L=L+1
@ L,10 SAY ELITE+RASCUNHO+NORMAL+NORM2+SOLIDO+'PAPEL A4 IMPRESSAO TIPO RASCUNHO'
L=L+1
@ L,10 SAY ELITE+CARTA+NORMAL+NORM3+DEFAUT+'PAPEL A4 IMPRESSAO TIPO CARTA 13'
L=L+1
@ L,10 SAY ELITE+CARTA+BOLD+NORM3+PATTERN+'PAPEL A4 PATTERN IMPRESSAO TIPO CARTA  BOLD 13'
L=L+1
@ L,10 SAY UNIVERS+CARTA+EXTRA+REDUZ1+GRAY+'PAPEL A4 IMPRESSAO TIPO CARTA UNIVERS EXTRA GRAY 13'
L=L+1
@ L,10 SAY ELITE+EXTRA+BOLD+NORM4+PATTERN+'ABCDEFGHIJKLMNOPQRSTUVXZWYAPEL A4 IMPRESSAO TIPO CARTA  BOLD 13'
L=L+1
*
**//// USAR ESTE COMO PADRAO
@ L,0  SAY ELITE+CARTA+NORMAL+NORM3+DEFAUT+'1234567 101234567 201234567 301234567 401234567 601234567 701234567 80'

SET DEVICE TO PRINT
RETURN

Colocar as configurações no inico do PRG ou so o que precisa e depois para imprimir utilizava isto:

Código:
@ L,0  SAY ELITE+CARTA+NORMAL+NORM3+DEFAUT+'1234567 101234567 201234567 301234567 401234567 601234567 701234567 80'

Onde ELITE é o tipo de letra; CARTA é o tamanho do papel e assim por diante, escolhe uma das configurações setadas acima e monta a impressao.

Veja este link

Acessar link externo



Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Rosangela Pires em 14/2/2013, 23:56

Obrigado Julio,

Vou testar os códigos.

[]´s

Rosangela Pires

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Julio em 15/2/2013, 12:53

"Julio, disse!
**//// USAR ESTE COMO PADRAO
@ L,0 SAY ELITE+CARTA+NORMAL+NORM3+DEFAUT+'1234567 101234567 201234567 301234567 401234567 601234567 701234567 80'

Este padrão era que eu tinha determinado para minhas impressões, mas pode criar o seu.

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Comandos para Impressão via código

Mensagem por Rosangela Pires em 15/2/2013, 15:57

Valeu Julio,

Testei e deu certo...

Cosegui montar o relatorio.

Obrigado pela ajuda.

Podemos dar como finalizado o tópico.

[]´s

Rosangela Pires

Rosangela Pires
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum