[VB6] Stampare report in orizzontale

[donini]

ciao
ho eseguito un progetto in (VB6) dove al suo interno contiene ben 5 report fin qui tutto bene ora il problema è che devo stampare uno di questi report in orizzontale, in quanto devo stampare su moduli prestampati.
facendo qualche ricerca ho trovato che posso superare questo problema con il cod "orientation" ma il mio software non sopporta questa funzione avendo installato sp6.
Come posso superare questo astacolo?

[VanessaInfo]

...6 sicuro ke nn sia supportato...

se utilizzi oggetto printer.orientation....nn va?
VaneX

[anatroccolo]

Prova questo:

MyReport.Orientation = rptOrientLandscape

dovrebbe funzionare

ciao

[donini]

questo è il codice che a me serve per stampare il report e che non riesco a stampare in orizzontale pultroppo le indicazioni che mi avete mandato non fuziona.
ho installato di nuovo sp6 ma non è cambiato nulla.
se avete qualche altro suggerimento grazie

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LB_SETTABSTOPS = &H192

Private Sub Command1_Click()
Dim db_file As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

db_file = App.Path
If Right$(db_file, 1) <> "\" Then db_file = db_file & "\"
db_file = db_file & "lancioni.mdb"

Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
conn.Open

Set rs = conn.Execute("SELECT * FROM fase_lavoro", , adCmdText)

' Connette il Recordset al DataReport.
Set rptfase_lavoro.DataSource = rs
rptfase_lavoro.WindowState = vbMaximized
rptfase_lavoro.Show vbModal

rs.Close
conn.Close
End Sub

[anatroccolo]

A me questo codice funziona benissimo von VB6-sp6.

Private Sub DataReport_Initialize()
    Me.Sections(1).Controls("Label15").Caption = frmDisplay.txtCodInps.Text
    Me.Sections(1).Controls("Label18").Caption = "ANNO - " & frmDisplay.txtAnno.Text
    Me.Sections(1).Controls("Label6").Caption = frmDisplay.txtMatric.Text & " - " & frmDisplay.txtNominativo.Text
    Me.Sections(1).Controls("Label13").Caption = frmDisplay.txtLuogo.Text & " - " & frmDisplay.txtNascita.Text
    Me.Sections(1).Controls("Label14").Caption = frmDisplay.txtProv.Text
    Me.Sections(1).Controls("Label16").Caption = frmDisplay.txtSesso.Text
    Me.Sections(1).Controls("Label7").Caption = Descrizione
    RptES3.Orientation = rptOrientLandscape
    Set RptES3.DataSource = RsES3
End Sub

Prova a mettere il tuo codice nell'evento Initialize

' Connette il Recordset al DataReport. 
rptfase_lavoro.Orientation = rptOrientLandscape
Set rptfase_lavoro.DataSource = rs 
rptfase_lavoro.WindowState = vbMaximized 
rptfase_lavoro.Show vbModal

Ciao e fammi sapere

[giorgiogio48]

Originariamente inviato da donini
ciao
ho eseguito un progetto in (VB6) dove al suo interno contiene ben 5 report fin qui tutto bene ora il problema è che devo stampare uno di questi report in orizzontale, in quanto devo stampare su moduli prestampati.
facendo qualche ricerca ho trovato che posso superare questo problema con il cod "orientation" ma il mio software non sopporta questa funzione avendo installato sp6.
Come posso superare questo astacolo?

Ciao,
tempo fa ho avuto anche io il tuo stesso problema. Forse perchè avevo una stampante diversa e meno avanzata. Comunque ora, con una Epson Stylus C44, la proprietà orientation funziona.
Anche io ho installato il SP6.
Forse il tuo problema è nella stampante.
Io dovevo stampare dei report tutti in orizzontale e risolsi così:
Pannello di controllo>Stampanti>Tua stampante>click col destro>Preferenze di stampa>Orientamento>Orizzontale

[donini]

ho risolto il problema seguendo i consigli riportati in questo link
http://support.microsoft.com/kb/261193/it#kb3

grazie

[donini]

ero cosi felice di aver risolto il problema ma pultroppo risolto un problema nè arriva un' altro ed è il seguente:
dopo aver aggiunto dei nuovi record de DB di access associato al mi report quest ultimo non si aggiorna a meno che non chiudo il programma e poi lo riapro,leggendo qualche post sul forum ho visto che è un problema del datareport e non è semplice da risolvere.
consultanto il sito della microsoft ho trovato questo link

http://support.microsoft.com/kb/244779/it
dove si parla di questo problema e di come è risolvibile io ho provato a eseguire l'esempio riportato ma non ci sono riuscito.
mi sapete dire se è possibile risolvere il mio problema.

[donini]

se non c'è soluzione a questo problema volevo sapere se io invece di usare datareport uso crystal reports riesco a superare questo problema

[giorgiogio48]

Io non ho assolutamente il tuo problema. Non mi so spiegare. Che stampante hai? Io penso che dipenda dalla stampante.