Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/01/2008 10:05 hs
fez como eu disse anterior mente Printer.Copies = CommonDialog1.Copies Printer.Orientation = CommonDialog1.Orientation |
|
|
|
|
|
$VALMIR$
|
UBERLANDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/01/2008 10:07 hs
a questão da quantidade de Copias eu resolvi..
mas o grande problema esta na gaveta da impressora que está puxando apenas em uma unica gaveta, mesmo selecionando..
e a parte de Intervalo de impressões está desativada..
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 24/01/2008 10:14 hs
Tenta isso valmir ve se funciona Printer.Page = CommonDialog1.ToPage
|
|
|
|
|
|
Postada em 24/01/2008 10:16 hs
Eu já tinha testado o ToPage e o FromPage, só que para isso funcionar, vc tem que entrar com os valores la no gerenciador, só que a opção de intervalo esta Enable = False... Desabilitada..
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/01/2008 11:16 hs
Valmir penei mas descobri é o seguinte: insira a seguinte propriedade antes do showprinter CommonDialog1.max=100 CommonDialog1.ShowPrinter agora sim sim você utiliza as funções frompage e topage valeu até |
|
|
|
|
|
Postada em 24/01/2008 13:10 hs
Amigo, realmente fazendo isso a opção de intervalo é habilitada..
Então, só que nada dá certo dentro do gerenciador, a unica coisa que obedece é a escolha da impressora.. nada mais funciona..
sei que talvez tenho de trabalhar manualmente com os intervalos, utilizando o FrontPage e o ToPage, mas como não tenho experiencia em trabalhar com esses objetos de impressão, não estou conseguindo fazer a minha impressão reconhecer o intervalo que foi digitado no gerenciador..
Veja abaixo eu utilizo a seguinte rotina para imprimir um relatório do Access diretamente, sem visualização.. e é nisso que eu precisava do intervalo de paginas..
With RelatorioAccess
.OpenCurrentDatabase (strDbName) 'Abre o Banco de Dados
.DoCmd.OpenReport ReportName:=NomeRelatorio 'Imprime Relatorio
.CloseCurrentDatabase 'Fecha Banco
.Quit 'Fecha o MSACCESS do Gerenciador de Tarefas
End
a única linha que faz a impressão é essa
.DoCmd.OpenReport ReportName:=NomeRelatorio 'Imprime Relatorio
então não sei aonde tratar o codigo para reconhecer o intervalo que quero de paginas.
|
|
|
|
