Problema reportistica

venerdì 27 gennaio 2006 - 11.59

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

ariesboy Profilo | Newbie

2 messaggi | Data Invio: ven 27 gen 2006 - 11:59

Ragazzi ho bisogno di una mano...
io ho questa funzione in cui dovrei vedere 5 immagini...2 a sinistra e 3 a destra ma purtroppo non riesco a vedere Planimetria.jpg in quanto mi dice (CREDO) che si sono "sforate" le dimensioni del foglio...ma questo credo sia impossibile perchè altrimenti non dovrei riuscire a vedere neanche l'ultimo grafico che sta sotto a tutto sulla destra.
Spero possiate aiutarmi
Grazie

.
.
.
Private Sub frmReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim app As New CRAXDRT.Application
Dim x As CRAXDRT.Report

x = app.NewReport
x.PaperSize = CRAXDRT.CRPaperSize.crPaperA4
x.Sections.Item(1).AddTextObject("Prova", 1, 1)

x.Sections.Item(2).AddPictureObject("C:\Progetti\Intestazione.jpg", 1, 10)
DirectCast(x.Sections.Item(2).ReportObjects(1), CRAXDRT.OleObject).Height = 7000
DirectCast(x.Sections.Item(2).ReportObjects(1), CRAXDRT.OleObject).Width = 3000

x.Sections.Item(2).AddPictureObject("C:\Progetti\Planimetria.jpg", 1, 7000)
DirectCast(x.Sections.Item(2).ReportObjects(2), CRAXDRT.OleObject).Height = 7000
DirectCast(x.Sections.Item(2).ReportObjects(2), CRAXDRT.OleObject).Width = 3000

x.Sections.Item(2).AddPictureObject(gblImage, 3000, 10) '.Height = 2500
DirectCast(x.Sections.Item(2).ReportObjects(2), CRAXDRT.OleObject).Height = 3000
DirectCast(x.Sections.Item(2).ReportObjects(2), CRAXDRT.OleObject).Width = 8500

x.Sections.Item(2).AddPictureObject(gblImage, 3000, 3000) '.Height = 2500
DirectCast(x.Sections.Item(2).ReportObjects(3), CRAXDRT.OleObject).Height = 3000
DirectCast(x.Sections.Item(2).ReportObjects(3), CRAXDRT.OleObject).Width = 8500

x.Sections.Item(2).AddPictureObject(gblImage, 3000, 6000) '.Height = 2500
DirectCast(x.Sections.Item(2).ReportObjects(4), CRAXDRT.OleObject).Height = 3000
DirectCast(x.Sections.Item(2).ReportObjects(4), CRAXDRT.OleObject).Width = 8500

x.Sections.Item(2).AddPictureObject(gblImage, 3000, 9000) '.Height = 2500
DirectCast(x.Sections.Item(2).ReportObjects(5), CRAXDRT.OleObject).Height = 3000
DirectCast(x.Sections.Item(2).ReportObjects(5), CRAXDRT.OleObject).Width = 8500

x.ReportTitle = "PROVA"
CRViewer.ReportSource = x
CRViewer.ViewReport()
CRViewer.Refresh()

End Sub
End Class

freeteo Profilo | Guru

6.542 messaggi | Data Invio: lun 30 gen 2006 - 01:51

ciao,
la cosa sembre 1po anomala, puoi postare la descrizione dell'errore che ti da?
grazie ciao

Matteo Raumer - .net addicted :-)
http://blogs.dotnethell.it/freeteo

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !