Come stampare due grafici di Excel su pagina singola w/OLE Automation

Traduzione articoli Traduzione articoli
Identificativo articolo: 114348 - Visualizza i prodotti a cui si riferisce l?articolo.
Questo articolo è stato archiviato. L?articolo, quindi, viene offerto ?così come è? e non verrà più aggiornato.
Espandi tutto | Chiudi tutto

In questa pagina

Sommario

È possibile utilizzare l'automazione con Excel versione 5.0 per stampare due grafici su una singola pagina. In questo articolo viene illustrato come eseguire questa operazione in Visual Basic versione 3.0.

Informazioni

Excel versione 5.0 espone le funzionalità di stampa tramite automazione OLE. L'oggetto di foglio di lavoro di Excel supporta il metodo PrintOut. Il metodo di stampa stampa il foglio di lavoro alla stampante utilizzando l'oggetto PageSetup corrente.

Questo esempio viene creato e posiziona due grafici in un foglio di lavoro. Quindi modifica l'oggetto PageSetup e viene stampato il foglio di lavoro alla stampante.

Procedura di esempio

  1. Avviare un nuovo progetto in Visual Basic. In base all'impostazione predefinita, viene creato il progetto Form1.
  2. Aggiungere un pulsante di comando (Command1) a Form1.
  3. Inserire il codice seguente sul pulsante di comando evento click:
     Sub Command1_Click()
    
          ' Define Excel Constants:
          ' Constant values can be found with "MsgBox xlConst" in Excel
          ' Constants are also in XLCONST.BAS in Office Developer's Kit 1.0
          Const xlColumn = 3
          Const xlRows = 1
          Const xlLine = 4
          Const xlPortrait = 1
          Const xlPaperLetter = 1
          Const xlAutomatic = -4105
          Const xlDownThenOver = 1
    
          ' Dimension Variables:
          Dim XL As Object
          Dim WS1 As Object
          Dim WS2 As Object
          Dim PS As Object
          Dim Col As Integer
    
          ' Create an Excel Application object:
          Set XL = CreateObject("Excel.Application")
    
          ' Make Excel visible:
          ' If the following line is changed to a comment, Excel will not be
          ' visible, but the charts will still print
          XL.Visible = True
    
          ' Add a Workbook and set Worksheet objects to the first two Sheets:
          XL.Workbooks.Add
          Set WS1 = XL.WorkSheets(1)
          Set WS2 = XL.WorkSheets(2)
    
          ' Fill in Cells of first Worksheet with data for Charts:
          Randomize Timer
          For Col = 1 To 10
             WS1.Cells(1, Col).Value = 10 * Rnd
             WS1.Cells(2, Col).Value = 10 * Rnd
          Next
    
          ' Display the second Worksheet:
          WS2.Select
    
          ' Add a Chart object at specified position:
          ' Top and Left are relative to Cell A1
          ' Enter the following two lines as one, single line of code:
          WS2.ChartObjects.Add(0, 0, XL.InchesToPoints(6),
             XL.InchesToPoints(4)).Select
    
          ' Use the ChartWizard method to fill in the Chart:
          ' Enter the following three lines as one, single line of code:
          WS2.ChartObjects("Chart 1").Chart.ChartWizard
             WS1.Range(WS1.Cells(1, 1), WS1.Cells(1, 10)), xlColumn, 1, xlRows,
             0, 0, 1, "Chart 1 (Column Chart)", "Columns", "Value", ""
    
          ' Create a second Chart on the same Worksheet:
          ' Enter the following two lines as one, single line of code:
          WS2.ChartObjects.Add(0, XL.InchesToPoints(5), XL.InchesToPoints(6),
             XL.InchesToPoints(4)).Select
          ' Enter the following three lines as one, single line of code:
          WS2.ChartObjects("Chart 2").Chart.ChartWizard
             WS1.Range(WS1.Cells(2, 1), WS1.Cells(2, 10)), xlLine, 4, xlRows,
             0, 0, 1, "Chart 2 (Line Chart)", "Points", "Value", ""
    
          ' The following lists various property settings for the PageSetup
          ' Object in Excel. There may be additional properties available for
          ' different printers. Please check the Excel documentation for
          ' details on the PageSetup object.
          Set PS = WS2.PageSetup
          PS.PrintTitleRows = ""
          PS.PrintTitleColumns = ""
          PS.PrintArea = ""
          PS.LeftHeader = ""
          PS.CenterHeader = "Two Charts on a Page"
          PS.RightHeader = ""
          PS.LeftFooter = ""
          PS.CenterFooter = "Page &P"
          PS.RightFooter = ""
          PS.LeftMargin = XL.InchesToPoints(.75)
          PS.RightMargin = XL.InchesToPoints(.75)
          PS.TopMargin = XL.InchesToPoints(1)
          PS.BottomMargin = XL.InchesToPoints(1)
          PS.HeaderMargin = XL.InchesToPoints(.5)
          PS.FooterMargin = XL.InchesToPoints(.5)
          PS.PrintHeadings = False
          PS.PrintGridlines = False
          PS.PrintNotes = False
          PS.CenterHorizontally = True
          PS.CenterVertically = True
          PS.Orientation = xlPortrait
          PS.Draft = False
          PS.PaperSize = xlPaperLetter
          PS.FirstPageNumber = xlAutomatic
          PS.Order = xlDownThenOver
          PS.BlackAndWhite = False
          PS.Zoom = 100
    
          ' Print the WorkSheet:
          WS2.PrintOut 1
    
          ' Close the Workbook without saving the contents:
          ' The brackets [] around Close are necessary because Close is
          ' a Visual Basic method.
          XL.ActiveWorkbook.[Close] (False)
          ' Shut down instance of Excel:
          XL.Quit
    
          Set XL = Nothing
          Set WS1 = Nothing
          Set WS2 = Nothing
          Set PS = Nothing
    
       End Sub
    						
  4. Salvare il progetto.
  5. Eseguire l'esempio, quindi fare clic sul pulsante di comando.
Excel deve diventano visibili. Verranno visualizzati dati di essere inseriti nelle celle. Dopo aver immesso i dati, verrà visualizzata la creazione dei grafici. Infine, è possibile che Excel inizierà la stampa.

Proprietà

Identificativo articolo: 114348 - Ultima modifica: sabato 1 marzo 2014 - Revisione: 3.3
Le informazioni in questo articolo si applicano a:
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Visual Basic 3.0 Professional Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2000 Service Pack 1
Chiavi: 
kbnosurvey kbarchive kbmt kbhowto kbinterop kbprogramming KB114348 KbMtit
Traduzione automatica articoli
Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell?utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell?utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.
Clicca qui per visualizzare la versione originale in inglese dell?articolo: 114348
LE INFORMAZIONI CONTENUTE NELLA MICROSOFT KNOWLEDGE BASE SONO FORNITE SENZA GARANZIA DI ALCUN TIPO, IMPLICITA OD ESPLICITA, COMPRESA QUELLA RIGUARDO ALLA COMMERCIALIZZAZIONE E/O COMPATIBILITA' IN IMPIEGHI PARTICOLARI. L'UTENTE SI ASSUME L'INTERA RESPONSABILITA' PER L'UTILIZZO DI QUESTE INFORMAZIONI. IN NESSUN CASO MICROSOFT CORPORATION E I SUOI FORNITORI SI RENDONO RESPONSABILI PER DANNI DIRETTI, INDIRETTI O ACCIDENTALI CHE POSSANO PROVOCARE PERDITA DI DENARO O DI DATI, ANCHE SE MICROSOFT O I SUOI FORNITORI FOSSERO STATI AVVISATI. IL DOCUMENTO PUO' ESSERE COPIATO E DISTRIBUITO ALLE SEGUENTI CONDIZIONI: 1) IL TESTO DEVE ESSERE COPIATO INTEGRALMENTE E TUTTE LE PAGINE DEVONO ESSERE INCLUSE. 2) I PROGRAMMI SE PRESENTI, DEVONO ESSERE COPIATI SENZA MODIFICHE, 3) IL DOCUMENTO DEVE ESSERE DISTRIBUITO INTERAMENTE IN OGNI SUA PARTE. 4) IL DOCUMENTO NON PUO' ESSERE DISTRIBUITO A SCOPO DI LUCRO.

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com