Crystalreport sous VB.net

Question

bonjour,
j'essaye de developper actuellement un code sous VB.net permettant la generation de rapports grace a crystal report.
tres peu de code sources sont disponibles et j'aimerais comprendre comment on peut initialiser les variables utilises sur le rapport grace au fichier code cristalreport.vb
et ainsi creer des tableaux et des rapports faisant des paragraphes automatiquement indexer 1.1 ; 1.1.1 ; 1.2 ; 1.2.1 ; 1.2.2 etc...

Merci pour votre aide

gaa179 · Answer

Bonjour,

Si tu parles de passer les valeurs aux param&#232;tres que tu as d&#233;finis dans ton rapport, voici le code:
Tu dois ajouter la ligne suivante:

cr.SetParameterValue(0, 6) ou 0 est l'index de ton param&#232;tre et 6 la valeur. Tu peux aussi donner le nom du param&#232;tre plut&#244;t que son indexe.



Public 
Sub PrintFrm(
ByVal ReportFile 
As 
String, 
ByRef WindowTitle 
As 
String, 
Optional 
ByRef RecordSelector 
As 
String = "", 
Optional 
ByRef PrintReport 
As 
Boolean = 
False, 
Optional 
ByRef ReportHeader 
As 
Boolean = 
False, 
Optional 
ByRef ExportEnable 
As 
Boolean = 
False, 
Optional 
ByRef ReportLandscape 
As 
Boolean = 
False)



Dim FrmPrint 
As 
New frmPrint



Dim cr 
As 
New ReportDocument



Dim crInfo 
As SummaryInfo



On 
Error 
GoTo Err_Print


ReportFile = Application.StartupPath & "\report" & ReportFile & ".rpt"


cr.Load(ReportFile, CrystalDecisions.[Shared].OpenReportMethod.OpenReportByDefault)

crInfo = cr.SummaryInfo


cr.PrintOptions.PrinterName = PrinterA4


If ReportHeader 
Then crInfo.ReportTitle = WindowTitle



'S&#233;lection de l'imprimante



If ReportLandscape 
Then cr.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Landscape



If RecordSelector.Length > 0 
Then cr.RecordSelectionFormula = RecordSelector



If PrintReport 
Then


cr.Refresh()


cr.PrintToPrinter(1, 
False, 0, 0)



Else


FrmPrint.Show()



With FrmPrint.crViewer1


.ReportSource = cr



'Modification affichage


.Refresh()


.Zoom(1)


.Top = 0


.Height = FrmPrint.Height


.Width = FrmPrint.Width


.DisplayGroupTree = 
False



'.dEnableExportButton = ExportEnable


.DisplayGroupTree = 
False


.DisplayBackgroundEdge = 
False


.Show()



End 
With



With FrmPrint


.Text = WindowTitle


.Show()



End 
With



End 
If


cr = 
Nothing


crInfo = 
Nothing



Exit 
Sub


Err_Print:


cr = 
Nothing


crInfo = 
Nothing



'WriteToLog("PrintForm : " & Err.Description)


MsgBox(Err.Description, MsgBoxStyle.Critical + MsgBoxStyle.OKOnly, "Impression")



End 
Sub

Crystalreport sous VB.net

1 réponse

Discussions similaires