report in orizzontale invece di verticale in vb

[amodio]

con il report di vb
devo metterlo in orizzontale invece di verticale(default)
come posso fare?

[ladyBlu]

prova così:


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

dovrebbe funzionare.

[amodio]

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

[ladyBlu]

ora cerco...

[amodio]

ah una cosa per mettere il numero di pagine nel report di vb?

[vonkranz]

Vaui sul report che ti serve poi:
File -> Imposta pagina -> Pagina
clicca su orizzontale, clicca su ok e poi salva il report.

[amodio]

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]

....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]

non so mi spiace
ansi non lo trovo proprio

[ladyBlu]

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...