Larghezza DataReport maggiore del foglio

[Antagonista]

Salve a tutti,
ho inserito un datareport e alla pressione di un pulsante mi richiamo il datareport nel quale ho inserito dei textbox associati a datafield precisi.
Il risultato è LArghezza del datareport maggiore di quella del foglio.
Come mai?

Il codice è questo. Ho sbagliato qualcosa?
GRAZIE.

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.CursorLocation = adUseClient
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & inseripaz.Label26.Caption & "';Mode=ReadWrite;Persist Security Info=False"
cn.Open ConnectionString
If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseNone
rs.CursorType = adOpenStatic
rs.Source = "select * from inseriprod where codice='" & Text1.Text & "'"
rs.Source = "select * from tab_prestazioni where codicecl='" & Text1.Text & "'"
rs.Open , cn
Set DataReport1.DataSource = rs
DataReport1.Show

[Antagonista]

AH! c'è un errore sul codice,
rs.Source = "select * from inseriprod where codice='" & Text1.Text & "'"
rs.Source = "select * from tab_prestazioni where codicecl='" & Text1.Text & "'"

ho scritto due volte il source ma comunque non funziona.

AIUTOOOO!!!

[LMondi]

Il risultato è LArghezza del datareport maggiore di quella del foglio

Quest'errore non dipende dal codice, bensì è causato dal fatto che i controlli del DR occupano più spazio di quello disponibile (Larghezza del foglio). Devi ridurre lo spazio tra i controlli o le loro dimensioni per rientrare nei margini del DR.

[Antagonista]

Ti ringrazio per la risposta ma ho un altro programma su un altro computer con lo stesso identico codice e grandezza e non dà problemi. Come devo ridimensionare? I label sono piccoli, non capisco ma aiutatemi.....GRAZIE

[LMondi]

Guarda, il problema di cui trattasi mi è capitato anche a me; ti ripeto si tratta della dimensione (larghezza) del DR maggiore di quella del foglio. Forse hai impostato dei margini al DataReport, tramite codice, maggiori di quelli del foglio ?
In alternativa prova a posizionare la stampa/anteprima in orizzontale, e vedi che risultato ti dà (se l'errore permane).

[Antagonista]

Mi potresti postare un pò di codice? Grazie 1000.

[LMondi]

Inserisci nel modulo del DataReport:

Public Sub StampaDRProva_Load()
On Error GoTo ErrHandler

    DRProva.WindowState = vbMaximized

'Imposta i margini del Report:
        With Me
            .Orientation = rptOrientLandscape
            .TopMargin = 100
            .BottomMargin = 100
            .LeftMargin = 100
            .RightMargin = 100
            .ReportWidth = 15390
            'Centra la visualizzazione del Report:
            If Me.WindowState = vbNormal Then
                .Width = Screen.Width
                .Height = Screen.Height
                .Left = (Screen.Width - .Width) / 2
                .Top = (Screen.Height - .Height) / 2
            End If
        End With
        
        DRProva.Refresh
                      
ErrHandler:
    If Err.Number <> 0 Then
        MsgBox Err.Description & Chr(13) _
        & "Si è verificato un errore nella procedura di stampa." & Chr(13) _
        & "Ripetere l'operazione.", vbInformation, "Stampa ...."
        Err.Clear
        Exit Sub
    End If

In questo modo posiziona orizzontalmente e definisce i margini (provato per un foglio A4).

[Antagonista]

Grazie...provo e ti faccio sapere.

[Antagonista]

Allora....ho notato che se imposto di default sulle prefernze di stampa da pannello di controllo l'orientamento della stampante a "orizzontale" non mi dà più errori e il report appare.
Grazie per gli ottimi consigli.

[LMondi]

Quindi se vuoi stampare il foglio in verticale devi ridurre lo spazio occupato dal DataReport, che allo stato attuale è maggiore della dimensione del foglio (e naturalmente togliere .Orientation = rptOrientLandscape).
Ciao e buon lavoro!