I am doing a project where I need to change a PDF report rdlc, and I did that part, but I I want to preserve this protected, which means that it can be read only, it can not be replaced with acrobat or can not open ... thanks in advance for your replies .... I use that function I am using what I am using and I hope that I can tell that I am missing or what I should do otherwise:
Type the public function CreatePDF () as the Boolean Dim Report type string = "PDF" As a MimeType string = nothing is done as a slow encoding string = nothing dim device like string = " gt; output format & gt; PDF & lt; / output format & gt;" & Amp; _ "& Gt; Weight in gt; 1in & lt; / PageHyight & gt; & lt; Margintop & gt; 0.5in & lt; / margintop & gt; & lt; Margin Left & gt; & lt; 1in & lt; / Margin lift & gt; & lt; Margin right & gt; 1in & lt; / Margin right & gt; & lt; MarginBottom> 0.5in & lt; / MarginBottom & gt; & lt; / DeviceInfo > Warne (Warning) Warning (try to report bit (bit) as bit renderedBytes () View.RefreshReport () if the file .exists ("C: \ account_status.pdf") then file. Delete ("C: \ account_status.pdf") Finish if Renderedbytes = reporteview.LocalReport.Render ("PDF", nothing, mimetype, nothing, "PDF", nothing, warning) as the stream of the file Firefree = system IOFILE Composition ("c: \ account_status.pdf", 1, file option via farewell.) Again. (Render bits, 0, render bits, length) fs.Close () Hold Return True as Exchange Access Return Fault and End Function 
Comments
Post a Comment