Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 17 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

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: 3

Estatísticas
Temos 7022 usuários registrados
O último usuário registrado atende pelo nome de Cicero Reis

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

Problemas com Impressão

Página 1 de 3 1, 2, 3  Seguinte

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

Resolvido Problemas com Impressão

Mensagem por Julio em 29/3/2010, 10:46

Bom dia pessoal


Tenho uma etiqueta com o codigo construido em um codigo PRG.

No microcomputador tem duas impressora instaladas uma laser que usa a porta USB e outra matricial de 80 colunas que usa a porta LPT. A impressora laser esta definida como padrão.

Pergunto como escolher a impressora matricial como padrão neste codigo PRG no ato do clique do botão para imprimir a etiqueta?

Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Marcos Guedes em 29/3/2010, 11:06

Julio, dê uma olhada nos seguintes comandos "SYS(1037)" e "SET PRINTER"

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por hugo em 29/3/2010, 11:15

julio

uma dica

em seus sistema coloque um paremetro pro cara poder escolher
qual impressora ele quer como padrao

dai no prg voce direciona para a impressora que esta definida
no seu parametro como a padrao, sendo assim, seu programa
nao vai utilizar como padrao a impressora "padrao do windows"

sopra confirmar, voce ta usando fox dos ou visual ????

valeu

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 29/3/2010, 12:21

Hugo

Utilizo o VFP 9.0.

É que o cara tem impressora laser e matricial.

Este relatorio tem q ser impresso na matricial.

Preciso que escolha antes de imprimir.
julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por alceu11 em 29/3/2010, 13:03

Julio
Testa este codigo, mude so o nome do seureport no final deste codigo.
Código:

SET CONSOLE OFF
SET NOTIFY off
SET SAFETY OFF

APRINTERS(gaprinters, 1)
CREATE CURSOR imprs (caminho c(50), porta c(50), nomeimp c(50), COMMEN c(50))
INSERT INTO imprs FROM ARRAY gaprinters
SELECT imprs
GO TOP
*aqui o browse e so pra voce ver depos exluir alinha browse
BROWSE NORMAL NODELETE TITLE ' Sair'

Declare Integer GetDefaultPrinter In winspool.drv String @pszBuffer, Integer @pcchBuffer
nBufsize = 250
cPrinter = Replicate(Chr(0), nBufsize)
= GetDefaultPrinter(@cPrinter, @nBufsize)
cPrinter = Substr(cPrinter, 1, At(Chr(0),cPrinter)-1)

Select imprs.nomeimp From imprs Where imprs.caminho = Alltrim(cPrinter) Into Cursor impbusca
Select impbusca
Public impdefaut
impdefault = impbusca.nomeimp

MESSAGEBOX('a impressora padrao é:'+CHR(13)+impdefault,48,'aviso')
** primeira opcao
SET PRINTER TO NAME GETPRINTER()
**ou nomeservidornome da impressora
SET PRINTER TO NAME &impdefault
REPORT FORM nomedoseureport TO PRINTER console

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por hugo em 29/3/2010, 13:14

creio que o alceu ja deu a solucao ai

confirma pra nos

abraco

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 29/3/2010, 13:29

Da erro na ultima linha quando tento salvar o formulario.

Troquei o nome do relatorio sim.
Coloquei este codigo no click de um botão OK?!

Na verade o que gostaria é que independente da impressora padrão este relatorio fosse impresso diretamente na matricial. Sem a necessidade de escolher a impressora.

Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por hugo em 29/3/2010, 13:45

ja tentou

set device to printer
set print to lpt1

?

nao se esqueca de depois colocar
set device to screen
set print to

valeu

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 29/3/2010, 14:15

Bem pessoal

primeiro passo, setar impressora - resolvido.

So que o arquivo dbf existem mais de 120 registros e o relatorio so imprime os doze primeiros registros. Se coloco um browse antes de mandar imprimir é visualizado os 120 registros, mas nao imprime a tabela toda.

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Marcos Guedes em 29/3/2010, 14:25

podes postar o código que estais utilizando?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 29/3/2010, 14:35

Marcos

Este codigo este no click de um botao
Código:
*!* Seleciono em um cursor os campos para impressão
SELECT identcasal,anilham,corm,anilhaf,corf,dtcasala,localgail;
FROM casal_c INTO CURSOR Pesq1
SELECT tmp
GO top
MESSAGEBOX("Ecolha a impressora e o tipo de papel",0+16,"Aviso do Sistema!")
SYS(1037)
DO etiqfed  *!* chamo o prg para imprimir


Este é o codigo do prg
SET PRINT ON
SET DELE ON
SET DEVI TO PRINT
STORE 0 TO P,L
SELECT tmp
DO WHILE .NOT. EOF()
  @ L,01 SAY identcasal
  L=L+1
  @ L,01 say anilham
  L=L+1
  @ L,01 say corm
  L=L+1
  @ L,01 say anilhaf
  L=L+1
  @ L,01 say corf
  L=L+1
  @ L,01 say dtcasala
  @ L,20 say localgail   
  L=L+1
  SELECT tmp
  SKIP
  LOOP
ENDDO
eject
SET DEVI TO SCRE
set print off
CLOSE DATA
RETURN

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por alceu11 em 29/3/2010, 15:30

no codigo de imprimir a etiqueta


Código:

SELECT tmp
DO WHILE .NOT. EOF()


Código:
Select Tmp
go top    && [b]TA FALTANTO O GO TOP PRA IR DESDE DO INICIO[/b]

IF NOT EOF()
DO WHILE .NOT. EOF()

********COMANDOS
SKIP
ENDDO
SET DEVICE TO SCREEN
SET PRINT TO
SET PRINT OFF
ELSE
WAIT WINDOW 'NAO EXISTEM REGISTROS PARA IMPRIMIR'
ENDIF

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 29/3/2010, 17:10

Alceu

Go top coloquei no botão antes de mandar imprimir.

Continua imprimindo apenas os doze primeiros registros.

Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por alceu11 em 29/3/2010, 17:41

EU COLOCARIA NOVAMENTE O GO TOP COMO ESCREVI NO CODIGO NA RESPOSTA ANTERIOR SO PRA VER....O QUE ACONTECE,,,

E ACRESCENTARIA,

DENTRO
Código:
SELECT TEMP
GO TOP

 DO WHILE  EOF()

SET DEVICE TO SCREEN
WAIT WINDOW STR(RECNO())  TIME 0.5
SET DEVICE TO PRINT

E O RESTO CONTINUA COMO ESCREVI ANTERIORMENTE

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Marcos Guedes em 29/3/2010, 17:47

[Você precisa estar registrado e conectado para ver este link.] escreveu:Alceu

Go top coloquei no botão antes de mandar imprimir.

Continua imprimindo apenas os doze primeiros registros.

Julio
Julio, devemos ter atenção ao trabalhar com DBF's em Foxpro pois, por algumas razões, nossas tabelas perdem o foco, e o fato de estarmos utilizando o comando GO TOP por exemplo, pode estar afetando uma outra tabela.
Por isso, sempre que se utilizar comandos como este, o ideal é selecionar a tabela antes.
Você se livrará de muitos problemas.

Ex.:
Código:
SELECT tabela
GO TOP

Código:
SELECT tabela
LOCATE FOR...

Código:
SELECT tabela
SET ORDER TU

Código:
SELECT tabela
SCAN


_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 29/3/2010, 17:48

Alceu

Eu alterei o codigo para o exemplo que voce postou.

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por hugo em 29/3/2010, 17:56

julio, voce alterou e ai? funcionando?

ou ainda so parte dos dados?

o que o marcos falou tem logica

quando voce da go top confira em que ordenacao esta sua tabela

tipo

sele tabela
set order to tabela.campo_ordem
go top

voce pode estar no seu 12 registro (em ordem de codigo)
porem estando neste registro, se coloca-lo em ordem de razao social
(exemplos), seu ponteiro pode ir para o final da tabela

valeu

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 30/3/2010, 09:27

Pessoal

Ainda continua com erro
Selecionei a tabela, indexei e mandei imprimir, imprime somente ate o decimo primeiro registro e este ultimo ainda imprime somente uma parte.

Os campos impressos sao:
campo1
campo2
campo3
campo4
campo5
campo6

quando chega no registro 11 imprime somente ate o campo5 e para a impressão.

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por alceu11 em 30/3/2010, 09:43

tem como postar o dbf e o codigo, para fazer um teste aqui na minha impressora?

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 30/3/2010, 11:24

Alceu

Segue o que estou utilizando
Nao limpei o codigo todo ainda por este em teste.

Clique aqui para baixar o arquivo!

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por alceu11 em 30/3/2010, 11:49

nAO VAI DA PRA AJUDAR, falta database, falta o programa etiqfed.prg o bco dados BDPASSAROS.DBC

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 30/3/2010, 12:07

Aleu

Desculpa ai, foi mal, na correria esqueci, mas agora esta com os outros arquivos

Clique aqui para baixar o arquivo!

julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por alceu11 em 30/3/2010, 13:12

Julio
veja este codigo que coloquei apos skip na tabela temp

Código:

SKIP
  if L >=64
  _LMARGIN=0
  L=0
  Endif

O codigo certo agora...
Código:

*
* ETIQFED.PRG | EMITE ETIQUETA DAS MEDICOS FEDERAIS
* AUTOR: Julio
*
SET PRINT ON
SET DELE ON
SET DEVI TO PRINT
*SET DEVICE TO SCREEN | TO PRINTER [PROMPT] | TO FILE
*SET DEVICE TO PRINTER TO FILE etiqfed
STORE 0 TO P,L
SELECT tmp  &&casal_c  &&1  && func
INDEX ON ALLTRIM(identcasal) TAG tmp
SET ORDER TO tmp
GO TOP
**BROWSE
**aaa
IF NOT EOF()
DO WHILE .NOT. EOF()
  *@ l,00 say chr(15)+chr(14)
  @ L,01 SAY identcasal
  L=L+1
  @ L,01 say ALLTRIM(anilham)
  L=L+1
  @ L,01 say ALLTRIM(corm)
  @ L,16 say ALLTRIM(abrevm)
  L=L+1
  @ L,01 say ALLTRIM(anilhaf)
  L=L+1
  @ L,01 say ALLTRIM(corf)
  @ L,16 say ALLTRIM(abrevf )
  L=L+1
  @ L,01 say dtcasala picture "@E"
  @ L,20 say localgail   
  L=L+1
  SELECT tmp  &&casal_c  &&1
  L=L+1  &&5
  SKIP
  if L >=64
  _LMARGIN=0
  L=0
  Endif

  IF EOF()
  EXIT
  endif
  *LOOP
ENDDO
*eject
*@ l,00 say chr(18)+chr(20)
SET DEVICE TO SCREEN
SET PRINT TO
SET PRINT OFF
CLOSE DATA
*RETURN
ELSE
  WAIT WINDOW 'NAO EXISTEM REGISTROS PARA IMPRIMIR' TIMEOUT 1
ENDIF

link aqui a prova que consegui
[Você precisa estar registrado e conectado para ver este link.]

observei que nao esta selecionando a impressora
Getprinter() && aqui voce seleciona a impressora
sys(1037)

Mais deixei esta parte para tu ver
Código:


Última edição por hugo em 30/3/2010, 16:50, editado 1 vez(es) (Razão : formatacao)

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por Julio em 30/3/2010, 13:45

Alceu

O engraçado é que aqui tambem funcionou em uma imprssora HP Laser, o problema esta em imprimir com este mesmo codigo em uma impressora matricial Epson LX 300.

E com um papel com medidas especiais, formulario continuo 1 coluna 8,89 cm largura e 30,50 cm. Este formulario foi feito sob encomenda.

Tambem nao pode ter espça quando se quebra a folha (pontilhado) tem que ser impresso continuamente.


Julio

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Problemas com Impressão

Mensagem por alceu11 em 30/3/2010, 15:11

Julio
Código:

if L >=64  && estou considerando que tem 64 linhas cada folha da etiqueta
  _LMARGIN=0  && zera pra comecar no topo este topo do papel pode comecar na
  L=0
  Endif
Código:

if L >=64  && estou considerando que tem 64 linhas cada folha da etiqueta

 _LMARGIN=0  && zera pra comecar no topo este topo do papel pode comecar na linha 3 a etiqueta ,, verifique julio

agora depois disto,,,
Gere o relatorio em txt

***ao inves de mandar para impressora mande para txt
Código:

set print to RelEtiq.txt
run type relEtiq.txt > lpt1


Última edição por hugo em 30/3/2010, 17:04, editado 2 vez(es) (Razão : formatacao)

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Página 1 de 3 1, 2, 3  Seguinte

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