Copyright 2010 ESRI ' ' All rights reserved under the copyright laws of the United States ' and applicable international laws, treaties, and conventions. ' ' You may freely redistribute and use this sample code, with or ' without modification, provided you include the original copyright ' notice and use restrictions. ' ' See the use restrictions at <your ArcGIS Explorer install location>/DeveloperKit/userestrictions.txt. ' Imports Microsoft.VisualBasic Imports System Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Linq Imports System.Text Imports System.Windows.Forms Imports RustemSoft.DataGridViewColumns Imports System.Drawing.Printing Partial Public Class QueryResultsForm Inherits Form Public Sub New(ByVal data As ESRI.ArcGISExplorer.Data.TableBindingAdapter) InitializeComponent() ' bind the data grid view to the table binding adapter dataGridView1.DataSource = data End Sub Private PrintGrid As DataGridViewPrint Private Sub buttonPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonPrint.Click Dim fpr As New frmPrint() With fpr .ShowDialog() If .Result > 0 Then PrintGrid = New DataGridViewPrint(PrintDocument1, dataGridView1, .bBlackWhite) PrintGrid.PrintTitle = .bTitle PrintGrid.Title = .Title Select Case .Result Case 1 ' Print ' The Print method prints the DataGridView without using a print dialog. ' Use a PrintDialog when you want to offer the user the ability to choose print settings. If PrintDialog1.ShowDialog() = DialogResult.OK Then PrintDocument1.Print() Case 2 ' Page Setup PageSetupDialog1.ShowDialog() Case 3 ' Preview PrintPreviewDialog1.Icon = fpr.Icon PrintPreviewDialog1.ShowDialog() End Select End If End With End Sub ' Specify the output to print by handling the PrintPage event ' and by using the Graphics included in the PrintPageEventArgs. Private Sub printDocument1_PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs) Handles PrintDocument1.PrintPage ' Print method of DataGridViewPrint class starts the custom DataGridView's printing process. e.HasMorePages = PrintGrid.Print(e.Graphics) End Sub End Class
サインインしたメンバーは投稿、更新のフォローなどができます。初めてですか?無料アカウントを登録してください。
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.