UDF > Excel >

_Excel_Print

Imprime un classeur, une feuille de calcul, un graphique ou une plage

#include <Excel.au3>
_Excel_Print ( $oExcel, $vObject [, $iCopies = Default [, $sPrinter = Default [, $bPreview = Default [, $iFrom = Default [, $iTo = Default [, $bPrintToFile = Default [, $bCollate = Default [, $sPrToFileName = ""]]]]]]]] )

Param�tres

$oExcel Objet application Excel
$vObject Classeur, feuille de calcul, graphique ou objet plage � imprimer. Plage peut �tre sp�cifi�e au format $xlA1
$iCopies [optionnel] Nombre de copies � imprimer (valeur par d�faut = mot-cl� Default = 1)
$sPrinter [optionnel] Nom de l'imprimante � utiliser. Par d�faut, l'imprimante active (par d�faut = mot-cl� Default )
$bPreview [optionnel] True pour invoquer l'aper�u avant l'impression (par d�faut = mot-cl� Default = False )
$iFrom [optionnel] Num�ro de page o� commencer l'impression (par d�faut = mot-cl� Default = premi�re page)
$iTo [optionnel] Num�ro de page o� arr�ter l'impression (par d�faut = mot-cl� Defaut = derni�re page)
$bPrintToFile [optionnel] True pour imprimer dans un fichier. Voir le param�tre $sPrToFileName (par d�faut = mot-cl� Default = False)
$bCollate [optionnel] True pour combiner des copies multiples (par d�faut = mot-cl� Default = False)
$sPrToFileName [optionnel] Si $bPrintToFile est d�finie � True, cet argument sp�cifie le nom du fichier dans lequel vous souhaitez imprimer.

Valeur de retour

Succ�s: Retourne l'objet plage imprim�e.
�chec: Retourne 0 et d�finit @error <> 0.
@error: 1 - $oExcel n'est pas un objet ou n'est pas un objet application
2 - $vObject n'est pas un objet ou une plage $xlA1 invalide. @error contient le code d'erreur COM
3 - Erreur d'impression de l'objet. @extended contient le code d'erreur COM

En relation

_Excel_Export

Exemples

Exemple 1

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Cr�e un objet Excel et ouvre un classeur exemple
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel4.xls", True)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel4.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

; *****************************************************************************
; Imprime la plage A1:B3 de la feuille de calcul active sur l'imprimante par d�faut.
; *****************************************************************************
_Excel_Print($oExcel, "A1:B3")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple 1", "Error printing cells." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple 1", "Range successfully printed.")

Exemple 2

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Cr�e un objet Excel et ouvre un classeur exemple
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel4.xls", True)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel4.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

; *****************************************************************************
; Imprime la feuille de calcul active sur l'imprimante par d�faut.
; *****************************************************************************
_Excel_Print($oExcel, $oExcel.ActiveSheet)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple 2", "Error printing worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple 2", "Active Worksheet successfully printed.")

Exemple 3

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Cr�e un objet Excel et ouvre un classeur
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel4.xls", True)
If @error Then
    MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel4.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

; *****************************************************************************
; Imprime un classeur complet sur l'imprimante par d�faut.
; *****************************************************************************
_Excel_Print($oExcel, $oWorkbook)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple 3", "Erreur lors de l'impression du classeur." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_Print-Exemple 3", "Le classeur a �t� imprim� avec succ�s.")