PDA

Visualizza la versione completa : report in orizzontale invece di verticale in vb


amodio
02-07-2002, 17:11
con il report di vb
devo metterlo in orizzontale invece di verticale(default)
come posso fare?

ladyBlu
02-07-2002, 17:24
prova cosė:


Private Sub DataReport_Initialize()
NomeReport.Orientation = rptOrientLandscape
End Sub

dovrebbe funzionare. :ciauz:

amodio
02-07-2002, 17:55
si quella di vb funziona
ora mi serve per quella di access (solo in anteprima)

ladyBlu
02-07-2002, 17:57
ora cerco... :smack:

amodio
02-07-2002, 17:58
ah una cosa per mettere il numero di pagine nel report di vb?

vonkranz
02-07-2002, 18:01
Vaui sul report che ti serve poi:
File -> Imposta pagina -> Pagina
clicca su orizzontale, clicca su ok e poi salva il report.

amodio
02-07-2002, 18:32
Originariamente inviato da vonkranz
Vaui sul report che ti serve poi:
File -> Imposta pagina -> Pagina
clicca su orizzontale, clicca su ok e poi salva il report.

no ehm no quello lo ho risolto
poi sono sul report di vb6 non quello di access (non ch'e su file impsta pagina):bubu:

e cmq vorrei mettere il numero pagina al report di vb6
frazie

vonkranz
02-07-2002, 19:41
....oooooooooooopppppssssssss!!! :bubu:
mi ha sviato questo:


si quella di vb funziona
ora mi serve per quella di access (solo in anteprima)


Non ricordo bene ma i report non hanno la prop. Pages (num. totale di pagine) e la prop. Page (numero di pag. in stampa).?

amodio
03-07-2002, 10:01
non so mi spiace
ansi non lo trovo proprio

ladyBlu
03-07-2002, 10:22
Call StampaReport(NomeDB, "NomeReport", "CampoReport = "
variabile, "Stampare?")

Sub StampaReport(NomeDB As String, NomeReport As String, crit As String, msg As String)
'Questa funzione stampa un report presente nel DB.
'stampa un report di Access
On Error GoTo errore

If MsgBox(msg, 36) = vbYes Then
Dim miaAccessApp As Access.Application
Set miaAccessApp = New Access.Application

miaAccessApp.OpenCurrentDatabase NomeDB
miaAccessApp.DoCmd.OpenReport NomeReport, , , crit

miaAccessApp.CloseCurrentDatabase
End If
Exit Sub

errore:
MsgBox Err.Description

End Sub


Spero che sia questo che ti serve... :smack:

Loading