// Create a pdf file stream using FileStream outputStream = new FileStream("DrawRangeInsideAPDF.pdf", FileMode.Create); //create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); IWorksheet worksheet = workbook.Worksheets[0]; //Set value worksheet.Range["A4:C4"].Value = new string[] { "Device", "Quantity", "Unit Price" }; worksheet.Range["A5:C8"].Value = new object[,] { { "T540p", 12, 9850 }, { "T570", 5, 7460 }, { "Y460", 6, 5400 }, { "Y460F", 8, 6240 } }; //Set style worksheet.Range["A4:C4"].Font.Bold = true; worksheet.Range["A4:C4"].Font.Color = Color.White; worksheet.Range["A4:C4"].Interior.Color = Color.LightBlue; worksheet.Range["A5:C8"].Borders[BordersIndex.InsideHorizontal].Color = Color.Orange; worksheet.Range["A5:C8"].Borders[BordersIndex.InsideHorizontal].LineStyle = BorderLineStyle.DashDot; //NOTE: To use this feature, you should have valid license for Document Solutions for PDF. //Create a pdf document. GrapeCity.Documents.Pdf.GcPdfDocument doc = new GrapeCity.Documents.Pdf.GcPdfDocument(); GrapeCity.Documents.Pdf.Page page = doc.NewPage(); GrapeCity.Documents.Pdf.GcPdfGraphics g = page.Graphics; //Create a PrintManager. GrapeCity.Documents.Excel.PrintManager printManager = new GrapeCity.Documents.Excel.PrintManager(); // Draw the Range"A4:C8" to the specified location on the page. printManager.Draw(page, new PointF(30, 100), worksheet.Range["A4:C8"]); //Save the modified pages into pdf file. doc.Save(outputStream); // close the pdf stream outputStream.Close();
' Create a pdf file stream Dim outputStream = File.Create("DrawRangeInsideAPDF.pdf") ' Create a new Workbook Dim workbook As New Workbook Dim worksheet As IWorksheet = workbook.Worksheets(0) ' Set value worksheet.Range("A4:C4").Value = {"Device", "Quantity", "Unit Price"} worksheet.Range("A5:C8").Value = New Object(,) { {"T540p", 12, 9850}, {"T570", 5, 7460}, {"Y460", 6, 5400}, {"Y460F", 8, 6240} } ' Set style With worksheet.Range("A4:C4") .Font.Bold = True .Font.Color = Color.White .Interior.Color = Color.LightBlue End With With worksheet.Range("A5:C8").Borders(BordersIndex.InsideHorizontal) .Color = Color.Orange .LineStyle = BorderLineStyle.DashDot End With ' NOTE: To use this feature, you should have valid license for Document Solutions for PDF. ' Create a pdf document. Dim doc As New GcPdfDocument Dim page As Page = doc.NewPage() Dim g As GcPdfGraphics = page.Graphics ' Create a PrintManager. Dim printManager As New Excel.PrintManager ' Draw the Range"A4:C8" to the specified location on the page. printManager.Draw(page, New PointF(30, 100), worksheet.Range("A4:C8")) ' Save the modified pages into pdf file. doc.Save(outputStream) ' close the pdf stream outputStream.Close()