naeim_crack
Active Member
من ميخوام يه گزارشي كه از بانك اطلاعاتي گرفته شده و تهيه شده است رو چاب كنم اما تنظيماتش هم انجام بديم اصولا ميشه .......
Dim report As New ReportDocument
report.Load("C:\somewhere\myreport.rpt") 'your report file and path
'if you normally setlogon and paramaters and stuff do that here
report.PrintOptions.PrinterName = "HP Laserjet 5100" 'your windows printer name
report.PrintToPrinter(1, False, 0, 0)
$crapp = new COM("CrystalDesignRunTime.Application");
$creport = $crapp->OpenReport("d:\\athermal\\reports\\backlog.rpt", 1);
$creport->SelectPrinter("winspool", "HP LaserJet 1200 Series PCL",
"Ne01:");
$creport->PaperOrientation = 0;
$creport->PrintOut(False);









