[VB6] [Datareport] Taille de page

Salut,

J'ai un souci avec mon premier datareport. Je sens que j'y suis presque, mais a chaque execution, j'ai le message suivant :

Citation:

---

Report width is larger than the paper width

---

Bon, j'ai pas déclaré d'imprimante, c'est la première fois que je travaille sur les impressions (je débute en VB) et si il faut en déclarer une, merci de m'indiquer comment.

Voici le bout de code de mon datareport

Citation:

---

Private Sub DataReport_Initialize()
Me.WindowState = vbMaximized
Me.Height = Printer.ScaleHeight
'
Dim BaseConnect As ADODB.Connection
Dim rsReport As ADODB.Recordset
Dim rsSql As String
'
' ** Open the database
Set BaseConnect = New ADODB.Connection
Set rsReport = New ADODB.Recordset
BaseConnect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrGloNomBase & ";Persist Security Info=False"
BaseConnect.Open
'
' ** Select the data
rsSql = "select * from T_DEALS;"
rsReport.Open rsSql, BaseConnect, adOpenStatic, adLockReadOnly
'
' ** Define the fields on the report
Me.Sections("section2").Controls("Lbl_ReportTitle").Caption = "Total Report"

Set Me.DataSource = rsReport

End Sub

---

J'ai cherché sur le forum, mais je n'ai rien trouvé sur ce problème.
Ca tente quelqu'un :wink: ? Toute aide sera appreciée.... :lol:

regarde du cote des propriete de ton report :

Width
ReportWidth
RightMargin
LeftMargin

Désolé :oops: , j'ai trouvé, cela venait des marges droite et gauche, qui faisait déborder le datareport.

Maintenant, cela fonctionne.

Pour info, pour ceux qui aurait ce souci, il semblerait que (ReportWidth + LeftMargin + RightMargin) doivent etre inférieur à Width.


Edité : Désolé Thierry, je n'avais pas vu ton message. Tu avais donc raison.

CQFD :lol:

Width c'est la largeur de la fenêtre à l'écran. Je vois pas le rapport avec le papier. Je dirais plutôt ReportWidth + LeftMargin + RightMargin <= à la largeur de la surface imprimable.

Et ou trouves tu la surface imprimable ?
Comment puis-je faire cette comparaison ?

Printer.ScaleWidth, Printer.ScaleHeight

Merci. Je ne pensais pas que l'objet Printer serait dispo puisque je ne l'avais pas déclaré.

Sinon, pour l'instant, mon souci est résolu. Je garde les infos pour mon prochain datagrid, car j'ai d'autres report à effectuer.

Encore merci pour votre aide.

Jean-Luc

Euh, je te mets ici les premières lignes de ton propre post :

Code:

---

1 2 3 4 5

Private Sub DataReport_Initialize() Me.WindowState = vbMaximized Me.Height = Printer.ScaleHeight ...

---

:wink: :wink: