Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
21 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 21 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
Últimos assuntos
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

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

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

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Estatísticas
Temos 6987 usuários registrados
O último usuário registrado atende pelo nome de Alexsander Leal

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

Impressora Default

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

Em curso Impressora Default

Mensagem por erickbonfim em 22/8/2011, 11:10

Caros,

Como jogar um arquivo txt para a impressora padrão? o processo direto, sem colocar caminho ou porta, gostaria de enviar um determinado arquivo e só passar o nome da impressora. Desde ja agradeço!

erickbonfim
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por alceu11 em 22/8/2011, 12:41

CODIGO 1 , olhe o cursor gerado e analise o codigo.
Código:
SET CONSOLE OFF
SET NOTIFY off
SET SAFETY OFF
close databases
APRINTERS(gaprinters, 1)
CREATE CURSOR imprs (caminho c(50), porta c(50), nomeimp c(50), COMMEN c(50))
Select imprs
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
**AQUI o teu cursor ImpBusca, com as impressoras so gerar o txt
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

CODIGO 2
Código:

***
IF APRINTERS(gaprinters) < 1 && Se nao houver drivers de impressora instalada
WAIT windows 'Nenhuma impressora instalada'
ELSE
SET PRINTER TO NAME "novaPDF" && Para colocar impressora padrao no fox
SELECT Pesquisa
REPORT FORM proposta NOCONSOLE TO PRINTER prompt
ENDIF

Retorne no topico AVISANDO se resolve o topico"!!"

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por erickbonfim em 22/8/2011, 15:55

Alceu,

O meu problema esta na impressão para a impressora zebra tlp2844, eu crio um arquivo txt com os dados da etiqueta e envio para ela atraves do comando "copy teste.txt lpt1" por exemplo, mas isso esta me limitando a utilizar apenas essa porta, temos clientes com porta usb no caso, eu acho q poderiamos resolver esse problema da porta se eu pudesse enviar o comando dizendo o nome da impressora ou pegando a impressora padrão, não consegui com esse exemplo que vc citou acima, muito provavel eu não ter entendido por ser leigo no vfp, mas acho q com essa explicação do real problema, a solução seja até mais simples. Obrigado

erickbonfim
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por Marcos Guedes em 22/8/2011, 16:24

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

Como jogar um arquivo txt para a impressora padrão? o processo direto, sem colocar caminho ou porta, gostaria de enviar um determinado arquivo e só passar o nome da impressora. Desde ja agradeço!
Veja se isto resolve:

Código:
shell_exec("caminho\Arquivo.txt", "print")

FUNCTION shell_exec
  LPARAMETERS lclink, lcaction, lcparms, lcdir, nshowwindow
 
  DECLARE INTEGER FindWindow IN WIN32API AS WGFindWindow STRING, STRING 
  DECLARE INTEGER ShellExecute IN SHELL32.DLL AS WGShellExecute ;
      INTEGER, STRING, STRING, STRING, STRING, INTEGER
 
  m.lcaction = IIF(EMPTY(lcaction), "Open", lcaction)
  m.lcparms = IIF(EMPTY(lcparms), "", lcparms)
  m.lcdir = IIF(EMPTY(lcdir), "", lcdir)
  m.nshowwindow = IIF(VARTYPE(m.nshowwindow) == "N", m.nshowwindow, 0)

  RETURN wgshellexecute(wgfindwindow(0, _SCREEN.CAPTION),  ;
      @lcaction, @lclink,  ;
      @lcparms, @lcdir,  ;
      m.nshowwindow)
ENDFUNC

_________________
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

Em curso Re: Impressora Default

Mensagem por erickbonfim em 22/8/2011, 16:54

Marcos,

Esse comando resolve quando eu mando imprimir para uma impressora jato de tinta ou lazer, quando eu coloca a zebra tlp2844 como padrão, abre uma janela do windows com a seguinte frase "a pagina é muito pequena para imprimir uma linha, tente imprimir usando fontes menores." quando eu executo o seguinte comando pelo dos "copy teste.txt \\atd-xxx\zebra" funciona!!! se esse comando do DOS tivesse comando dar um copy para a impressora padrão do windows, ja resolveria!!! vou tentar entender esse codigo q vc mandou e pesquisar um pouco e tentar ver o que pode ser, fico no aguardo de mais alguma idéia, mas agradeço os exemplos

erickbonfim
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por erickbonfim em 22/8/2011, 17:29

fiz um teste aqui e desse modo ja resolveria o meu caso:

Código:
X = GETPRINTER()
RUN /1 COPY TESTE.TXT &X
o unico problema é a tela q abre para escolher a impressora, tem algum outro comando q me retorna o caminho da impressora padrão?

erickbonfim
Começando a Participar
Começando a Participar


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por alceu11 em 22/8/2011, 17:45

run /n type nf.txt > lpt1

ou
set print to nf.txt

? " 123 "
??
set print to

type nf.txt > lpt1



alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Impressora Default

Mensagem por alceu11 em 22/8/2011, 19:55

Definindo a Impressora
Código:
SET PRINTER TO NAME "ZEBRA"  && depois confirma tp2844
SET DEVICE TO PRINT
SET PRINTER FONT 'MS Sans Serif', 10 STYLE "B"
**REPORT FORM RELATORIO TO PRINTER && aqui imprimir o Log da empresa
SET PRINTER TO arq.txt  &&Gerando o TXT, nome arq
l=1
@ l+1,0 say "Teste da Impressora"  FONT 'Courier', 12 STYLE "B"
? CHR(13)+CHR(10)
@ l+1,0 say "na linha de cima pular uma linha ou usar uma ?"
@ L+1,0 SAY '***'

@ l+1,0 say "CAXAMBU EVENTOS"+CHR(18)
@ l+1,0 say "Centro de DIVERSÃO " +CHR(14)
@ l+1,0 say " Rua Azilo,56 VL.JO SAO PAUL0"
?
SET PRINTER to
MODIFY file arq.txt
IF FILE('arq.txt')
 RUN /n TYPE arq.TXT > LPT1
ELSE
WAIT WINDOW 'nao encontrei' TIMEOUT 1
endif

alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


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