Horta
|
RECIFE
PE - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 01/03/2006 06:48 hs
Objecto Printer Pretendo imprimir números , começando pelo 1 e quando chegar ao fim da página , começar a imprimir em uma folha nova mas começando no 1 de novo Alguem me pode ajudar a fazer esta função Obrigado |
|
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/03/2006 08:48 hs
não entendi bem...pode explicar melhor? |
|
|
|
LCRamos
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/03/2006 10:59 hs
Veja se resolve: NUMERO = 0 PAGINAS = QUANT. DE PAGINAS X = 1 Do While X <= PAGINAS If NUMERO >= 60 ' quantidade de números a imprimir por pagina Print.NewPage NUMERO = 0 ' retorna ao numero 0 X = X + 1 ' incrementa a pagina End If NUMERO = NUMERO +1 ' incrementa o numero Print.Printer Tab(5) Str(NUMERO) Loop Espero que resolva. |
|
|
|
Horta
|
RECIFE
PE - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/03/2006 12:44 hs
talvez não me tivesse explicado bem ... Mas o que eu preciso é : Imprimir um campo do Banco de Dados numa listagem e á medida que vai imprimindo esses dados nas folhas, vai numerando cada linha , começando sempre a linha com o número um em cada principio de folha Ex. Folha 1 começa no 1 e de seguida os dados ; folha 2 começa de novo no nº 1 e assim por diante ( Estou a falar em muitos registo na impressão , dai a necessidade de numerar as linhas em cada folha Espero ter-me feito entender Mais uma vez Obrigadão |
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/03/2006 14:05 hs
ah ...agora sim... como é q é o seu cod para impressão? vc imprime todas de uma vez? ou carrega uma por uma? |
|
|
|
LCRAMOS
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/03/2006 14:58 hs
Desculpe onde se lê Print. Susbstitua por Printer. O exemplo serve perfeitamente para numerar as linhas. |
|
|
|
