Bonjour,
En ajoutant l'impression de ce rapport avec l'instruction print dans
mon batch, cela fonctionne mais
les caractères accentués ne passe pas (sans doute une subtilité
oem-ansi) et le rapport est tronquée
sur la partie droite de mon document.
Bonjour,
En ajoutant l'impression de ce rapport avec l'instruction print dans
mon batch, cela fonctionne mais
les caractères accentués ne passe pas (sans doute une subtilité
oem-ansi) et le rapport est tronquée
sur la partie droite de mon document.
Bonjour,
En ajoutant l'impression de ce rapport avec l'instruction print dans
mon batch, cela fonctionne mais
les caractères accentués ne passe pas (sans doute une subtilité
oem-ansi) et le rapport est tronquée
sur la partie droite de mon document.
"Azur" a écrit dans le message de
news:ObAiyA2$
| Bonjour,
Bonjour,
| Je voudrais imprimer le rapport de l'execution de ma sauvegarde
| (backup01.log)
En complément de la solution de Fred, une approche différente serait de
s'appuyer sur un éditeur de texte pilotable par script, tel que
Microsoft Word, pour configurer et lancer l'impression. A titre
d'exemple, le script VBScript ci-dessous charge dans Word le fichier
texte backup01.log, fixe l'orientation en Paysage puis imprime le
document sur l'imprimante par défaut :
Set oWord=CreateObject("Word.Application")
Set oDoc=oWord.Documents.Open("D:Testbackup01.log")
oDoc.PageSetup.Orientation=1 ' Landscape
oDoc.PrintOut
oWord.Quit(False)
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"Azur" <PasDeSpamazur.bj@wanadoo.fr> a écrit dans le message de
news:ObAiyA2$HHA.4656@TK2MSFTNGP04.phx.gbl
| Bonjour,
Bonjour,
| Je voudrais imprimer le rapport de l'execution de ma sauvegarde
| (backup01.log)
En complément de la solution de Fred, une approche différente serait de
s'appuyer sur un éditeur de texte pilotable par script, tel que
Microsoft Word, pour configurer et lancer l'impression. A titre
d'exemple, le script VBScript ci-dessous charge dans Word le fichier
texte backup01.log, fixe l'orientation en Paysage puis imprime le
document sur l'imprimante par défaut :
Set oWord=CreateObject("Word.Application")
Set oDoc=oWord.Documents.Open("D:Testbackup01.log")
oDoc.PageSetup.Orientation=1 ' Landscape
oDoc.PrintOut
oWord.Quit(False)
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"Azur" a écrit dans le message de
news:ObAiyA2$
| Bonjour,
Bonjour,
| Je voudrais imprimer le rapport de l'execution de ma sauvegarde
| (backup01.log)
En complément de la solution de Fred, une approche différente serait de
s'appuyer sur un éditeur de texte pilotable par script, tel que
Microsoft Word, pour configurer et lancer l'impression. A titre
d'exemple, le script VBScript ci-dessous charge dans Word le fichier
texte backup01.log, fixe l'orientation en Paysage puis imprime le
document sur l'imprimante par défaut :
Set oWord=CreateObject("Word.Application")
Set oDoc=oWord.Documents.Open("D:Testbackup01.log")
oDoc.PageSetup.Orientation=1 ' Landscape
oDoc.PrintOut
oWord.Quit(False)
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
"Azur" a écrit dans le message de
news:ObAiyA2$Bonjour,
Bonjour,Je voudrais imprimer le rapport de l'execution de ma sauvegarde
(backup01.log)
En complément de la solution de Fred, une approche différente serait
de s'appuyer sur un éditeur de texte pilotable par script, tel que
Microsoft Word, pour configurer et lancer l'impression. A titre
d'exemple, le script VBScript ci-dessous charge dans Word le fichier
texte backup01.log, fixe l'orientation en Paysage puis imprime le
document sur l'imprimante par défaut :
Set oWord=CreateObject("Word.Application")
Set oDoc=oWord.Documents.Open("D:Testbackup01.log")
oDoc.PageSetup.Orientation=1 ' Landscape
oDoc.PrintOut
oWord.Quit(False)
"Azur" <PasDeSpamazur.bj@wanadoo.fr> a écrit dans le message de
news:ObAiyA2$HHA.4656@TK2MSFTNGP04.phx.gbl
Bonjour,
Bonjour,
Je voudrais imprimer le rapport de l'execution de ma sauvegarde
(backup01.log)
En complément de la solution de Fred, une approche différente serait
de s'appuyer sur un éditeur de texte pilotable par script, tel que
Microsoft Word, pour configurer et lancer l'impression. A titre
d'exemple, le script VBScript ci-dessous charge dans Word le fichier
texte backup01.log, fixe l'orientation en Paysage puis imprime le
document sur l'imprimante par défaut :
Set oWord=CreateObject("Word.Application")
Set oDoc=oWord.Documents.Open("D:Testbackup01.log")
oDoc.PageSetup.Orientation=1 ' Landscape
oDoc.PrintOut
oWord.Quit(False)
"Azur" a écrit dans le message de
news:ObAiyA2$Bonjour,
Bonjour,Je voudrais imprimer le rapport de l'execution de ma sauvegarde
(backup01.log)
En complément de la solution de Fred, une approche différente serait
de s'appuyer sur un éditeur de texte pilotable par script, tel que
Microsoft Word, pour configurer et lancer l'impression. A titre
d'exemple, le script VBScript ci-dessous charge dans Word le fichier
texte backup01.log, fixe l'orientation en Paysage puis imprime le
document sur l'imprimante par défaut :
Set oWord=CreateObject("Word.Application")
Set oDoc=oWord.Documents.Open("D:Testbackup01.log")
oDoc.PageSetup.Orientation=1 ' Landscape
oDoc.PrintOut
oWord.Quit(False)
Notre ami Gilles LAURENT [MVP] tapota :"Azur" a écrit dans le message de
news:ObAiyA2$Bonjour,
Bonjour,Je voudrais imprimer le rapport de l'execution de ma sauvegarde
(backup01.log)
En complément de la solution de Fred, une approche différente serait
de s'appuyer sur un éditeur de texte pilotable par script, tel que
Microsoft Word, pour configurer et lancer l'impression. A titre
d'exemple, le script VBScript ci-dessous charge dans Word le fichier
texte backup01.log, fixe l'orientation en Paysage puis imprime le
document sur l'imprimante par défaut :
Set oWord=CreateObject("Word.Application")
Set oDoc=oWord.Documents.Open("D:Testbackup01.log")
oDoc.PageSetup.Orientation=1 ' Landscape
oDoc.PrintOut
oWord.Quit(False)
Pour modifier la police du document :
Set oRange = oDoc.Paragraphs(1).Range
oRange.Select
Selection.WholeStory
Selection.Font.Size = 8
Selection.Font.Name = "Times New Roman"
En plus, pour modifier la mise en page,
tu dois pouvoir utiliser pour l'objet oDoc
certaines des propriétés suivantes
oDoc.PageSetup.BottomMargin
oDoc.PageSetup.DifferentFirstPageHeaderFooter
oDoc.PageSetup.FirstPageTray
oDoc.PageSetup.FooterDistance
oDoc.PageSetup.Gutter
oDoc.PageSetup.GutterPos
oDoc.PageSetup.GutterStyle
oDoc.PageSetup.HeaderDistance
oDoc.PageSetup.LayoutMode
oDoc.PageSetup.LeftMargin
oDoc.PageSetup.LineNumbering
oDoc.PageSetup.LinesPage
oDoc.PageSetup.MirrorMargins
oDoc.PageSetup.OddAndEvenPagesHeaderFooter
oDoc.PageSetup.Orientation
oDoc.PageSetup.OtherPagesTray
oDoc.PageSetup.PageHeight
oDoc.PageSetup.PageWidth
oDoc.PageSetup.PaperSize
oDoc.PageSetup.RightMargin
oDoc.PageSetup.SectionDirection
oDoc.PageSetup.VerticalAlignment
bref... tu peux faire joujou avec l'objet word...
HB
Notre ami Gilles LAURENT [MVP] tapota :
"Azur" <PasDeSpamazur.bj@wanadoo.fr> a écrit dans le message de
news:ObAiyA2$HHA.4656@TK2MSFTNGP04.phx.gbl
Bonjour,
Bonjour,
Je voudrais imprimer le rapport de l'execution de ma sauvegarde
(backup01.log)
En complément de la solution de Fred, une approche différente serait
de s'appuyer sur un éditeur de texte pilotable par script, tel que
Microsoft Word, pour configurer et lancer l'impression. A titre
d'exemple, le script VBScript ci-dessous charge dans Word le fichier
texte backup01.log, fixe l'orientation en Paysage puis imprime le
document sur l'imprimante par défaut :
Set oWord=CreateObject("Word.Application")
Set oDoc=oWord.Documents.Open("D:Testbackup01.log")
oDoc.PageSetup.Orientation=1 ' Landscape
oDoc.PrintOut
oWord.Quit(False)
Pour modifier la police du document :
Set oRange = oDoc.Paragraphs(1).Range
oRange.Select
Selection.WholeStory
Selection.Font.Size = 8
Selection.Font.Name = "Times New Roman"
En plus, pour modifier la mise en page,
tu dois pouvoir utiliser pour l'objet oDoc
certaines des propriétés suivantes
oDoc.PageSetup.BottomMargin
oDoc.PageSetup.DifferentFirstPageHeaderFooter
oDoc.PageSetup.FirstPageTray
oDoc.PageSetup.FooterDistance
oDoc.PageSetup.Gutter
oDoc.PageSetup.GutterPos
oDoc.PageSetup.GutterStyle
oDoc.PageSetup.HeaderDistance
oDoc.PageSetup.LayoutMode
oDoc.PageSetup.LeftMargin
oDoc.PageSetup.LineNumbering
oDoc.PageSetup.LinesPage
oDoc.PageSetup.MirrorMargins
oDoc.PageSetup.OddAndEvenPagesHeaderFooter
oDoc.PageSetup.Orientation
oDoc.PageSetup.OtherPagesTray
oDoc.PageSetup.PageHeight
oDoc.PageSetup.PageWidth
oDoc.PageSetup.PaperSize
oDoc.PageSetup.RightMargin
oDoc.PageSetup.SectionDirection
oDoc.PageSetup.VerticalAlignment
bref... tu peux faire joujou avec l'objet word...
HB
Notre ami Gilles LAURENT [MVP] tapota :"Azur" a écrit dans le message de
news:ObAiyA2$Bonjour,
Bonjour,Je voudrais imprimer le rapport de l'execution de ma sauvegarde
(backup01.log)
En complément de la solution de Fred, une approche différente serait
de s'appuyer sur un éditeur de texte pilotable par script, tel que
Microsoft Word, pour configurer et lancer l'impression. A titre
d'exemple, le script VBScript ci-dessous charge dans Word le fichier
texte backup01.log, fixe l'orientation en Paysage puis imprime le
document sur l'imprimante par défaut :
Set oWord=CreateObject("Word.Application")
Set oDoc=oWord.Documents.Open("D:Testbackup01.log")
oDoc.PageSetup.Orientation=1 ' Landscape
oDoc.PrintOut
oWord.Quit(False)
Pour modifier la police du document :
Set oRange = oDoc.Paragraphs(1).Range
oRange.Select
Selection.WholeStory
Selection.Font.Size = 8
Selection.Font.Name = "Times New Roman"
En plus, pour modifier la mise en page,
tu dois pouvoir utiliser pour l'objet oDoc
certaines des propriétés suivantes
oDoc.PageSetup.BottomMargin
oDoc.PageSetup.DifferentFirstPageHeaderFooter
oDoc.PageSetup.FirstPageTray
oDoc.PageSetup.FooterDistance
oDoc.PageSetup.Gutter
oDoc.PageSetup.GutterPos
oDoc.PageSetup.GutterStyle
oDoc.PageSetup.HeaderDistance
oDoc.PageSetup.LayoutMode
oDoc.PageSetup.LeftMargin
oDoc.PageSetup.LineNumbering
oDoc.PageSetup.LinesPage
oDoc.PageSetup.MirrorMargins
oDoc.PageSetup.OddAndEvenPagesHeaderFooter
oDoc.PageSetup.Orientation
oDoc.PageSetup.OtherPagesTray
oDoc.PageSetup.PageHeight
oDoc.PageSetup.PageWidth
oDoc.PageSetup.PaperSize
oDoc.PageSetup.RightMargin
oDoc.PageSetup.SectionDirection
oDoc.PageSetup.VerticalAlignment
bref... tu peux faire joujou avec l'objet word...
HB
Une autre solution possible serait de s'appuyer sur un composant COM
capable d'exposer les propriétés et méthodes de l'objet VisualBasic
Printer Object. Cela tombe bien car ce composant existe :
http://pragmaticlee.safedataisp.net/zipfiles/PrinterObject2.zip
Après avoir enregistré ce composant via l'outil regsvr32, il sera
possible de configurer l'impression d'un document. A titre d'exemple, le
script VBScript ci-dessous initialise l'imprimante par défaut, fixe la
taille de la police, fixe l'orientation en paysage puis imprime le
fichier texte backup01.log :
--- Coupez ici : CodeSnippet.vbs ---
' chargement du fichier log
Set oFs=CreateObject("Scripting.FileSystemObject")
Set oFile=oFs.OpenTextFile("D:Testbackup01.log")
strContent=oFile.ReadAll
' configuration et impression
Set oPrn=CreateObject("RxVB.PrinterObject")
oPrn.InitializePrinter
oPrn.Orientation=2 ' Landscape
oPrn.FontSize=8
oPrn.PrintLine strContent
oPrn.EndDoc
--- Coupez ici : CodeSnippet.vbs ---
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Une autre solution possible serait de s'appuyer sur un composant COM
capable d'exposer les propriétés et méthodes de l'objet VisualBasic
Printer Object. Cela tombe bien car ce composant existe :
http://pragmaticlee.safedataisp.net/zipfiles/PrinterObject2.zip
Après avoir enregistré ce composant via l'outil regsvr32, il sera
possible de configurer l'impression d'un document. A titre d'exemple, le
script VBScript ci-dessous initialise l'imprimante par défaut, fixe la
taille de la police, fixe l'orientation en paysage puis imprime le
fichier texte backup01.log :
--- Coupez ici : CodeSnippet.vbs ---
' chargement du fichier log
Set oFs=CreateObject("Scripting.FileSystemObject")
Set oFile=oFs.OpenTextFile("D:Testbackup01.log")
strContent=oFile.ReadAll
' configuration et impression
Set oPrn=CreateObject("RxVB.PrinterObject")
oPrn.InitializePrinter
oPrn.Orientation=2 ' Landscape
oPrn.FontSize=8
oPrn.PrintLine strContent
oPrn.EndDoc
--- Coupez ici : CodeSnippet.vbs ---
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
Une autre solution possible serait de s'appuyer sur un composant COM
capable d'exposer les propriétés et méthodes de l'objet VisualBasic
Printer Object. Cela tombe bien car ce composant existe :
http://pragmaticlee.safedataisp.net/zipfiles/PrinterObject2.zip
Après avoir enregistré ce composant via l'outil regsvr32, il sera
possible de configurer l'impression d'un document. A titre d'exemple, le
script VBScript ci-dessous initialise l'imprimante par défaut, fixe la
taille de la police, fixe l'orientation en paysage puis imprime le
fichier texte backup01.log :
--- Coupez ici : CodeSnippet.vbs ---
' chargement du fichier log
Set oFs=CreateObject("Scripting.FileSystemObject")
Set oFile=oFs.OpenTextFile("D:Testbackup01.log")
strContent=oFile.ReadAll
' configuration et impression
Set oPrn=CreateObject("RxVB.PrinterObject")
oPrn.InitializePrinter
oPrn.Orientation=2 ' Landscape
oPrn.FontSize=8
oPrn.PrintLine strContent
oPrn.EndDoc
--- Coupez ici : CodeSnippet.vbs ---
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
| Ou puis-je trouver les propriétés et méthodes actuelle de cette objet
| printer ?
Printer Object, Printers Collection :
http://msdn2.microsoft.com/en-us/library/aa267233(VS.60).aspx
Les méthodes et propriétés supportées par le composant :
*******************************
WSH Transcript Start
Start time : 2007-09-27 16:12:21
Username : xxxGilles
Machine : xxx (Microsoft Windows NT 5.1.2600.2)
*******************************
Transcript started, output file is D:WSHPrinterObject.txt
WSH D:Test> set oprn=co("rxvb.printerobject")
WSH D:Test> gm(oprn)
Category Name
--------- -------
Function ConvertToRGB (inRed, inGreen, inblue)
Function Dimensions (strPicturePath)
Sub DrawArc (X1, Y1, Radius, StartA, EndA)
Sub DrawArcC (X1, Y1, Radius, StartA, EndA, cl)
Sub DrawCircle (X1, Y1, Radius)
Sub DrawCircleC (X1, Y1, Radius, cl)
Sub DrawLine (X1, Y1, X2, Y2)
Sub DrawLineC (X1, Y1, X2, Y2, cl)
Sub EndDoc ()
Function GetCaps ()
Function HatchShade (InCood, InColor, HType)
Function ImageDimensions (strPicturePath)
Sub InitializePrinter ()
Sub KillDoc ()
Sub NewPage ()
Sub PaintPicture (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PaintPictureR (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PointSet (X1, Y1, cl)
Sub PrintLine (sText)
Sub PrintLineP (sText, tb)
Sub PrintLineS (sText)
Sub PrintLineT (sText, com)
Sub RotatedText (textstring, angle)
Sub SelectPrinter (prn, [bAnnounce])
Function SolidShade (InCood, InColor)
Function TextHeight (tstr)
Function TextWidth (tstr)
Property AppTitle
Property ColorMode
Property Copies
Property CurrentX
Property CurrentY
Property CX
Property CY
Property DrawWidth
Property Duplex
Property FontBold
Property FontItalic
Property FontName
Property FontSize
Property FontStrikethru
Property FontUnderline
Property ForeColor
Property Orientation
Property PageNo
Property PaperBin
Property PrintQuality
Property PrName
Property Ver
Property Zoom
WSH D:Test>
Transcript stopped.
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
| Ou puis-je trouver les propriétés et méthodes actuelle de cette objet
| printer ?
Printer Object, Printers Collection :
http://msdn2.microsoft.com/en-us/library/aa267233(VS.60).aspx
Les méthodes et propriétés supportées par le composant :
*******************************
WSH Transcript Start
Start time : 2007-09-27 16:12:21
Username : xxxGilles
Machine : xxx (Microsoft Windows NT 5.1.2600.2)
*******************************
Transcript started, output file is D:WSHPrinterObject.txt
WSH D:Test> set oprn=co("rxvb.printerobject")
WSH D:Test> gm(oprn)
Category Name
--------- -------
Function ConvertToRGB (inRed, inGreen, inblue)
Function Dimensions (strPicturePath)
Sub DrawArc (X1, Y1, Radius, StartA, EndA)
Sub DrawArcC (X1, Y1, Radius, StartA, EndA, cl)
Sub DrawCircle (X1, Y1, Radius)
Sub DrawCircleC (X1, Y1, Radius, cl)
Sub DrawLine (X1, Y1, X2, Y2)
Sub DrawLineC (X1, Y1, X2, Y2, cl)
Sub EndDoc ()
Function GetCaps ()
Function HatchShade (InCood, InColor, HType)
Function ImageDimensions (strPicturePath)
Sub InitializePrinter ()
Sub KillDoc ()
Sub NewPage ()
Sub PaintPicture (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PaintPictureR (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PointSet (X1, Y1, cl)
Sub PrintLine (sText)
Sub PrintLineP (sText, tb)
Sub PrintLineS (sText)
Sub PrintLineT (sText, com)
Sub RotatedText (textstring, angle)
Sub SelectPrinter (prn, [bAnnounce])
Function SolidShade (InCood, InColor)
Function TextHeight (tstr)
Function TextWidth (tstr)
Property AppTitle
Property ColorMode
Property Copies
Property CurrentX
Property CurrentY
Property CX
Property CY
Property DrawWidth
Property Duplex
Property FontBold
Property FontItalic
Property FontName
Property FontSize
Property FontStrikethru
Property FontUnderline
Property ForeColor
Property Orientation
Property PageNo
Property PaperBin
Property PrintQuality
Property PrName
Property Ver
Property Zoom
WSH D:Test>
Transcript stopped.
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
| Ou puis-je trouver les propriétés et méthodes actuelle de cette objet
| printer ?
Printer Object, Printers Collection :
http://msdn2.microsoft.com/en-us/library/aa267233(VS.60).aspx
Les méthodes et propriétés supportées par le composant :
*******************************
WSH Transcript Start
Start time : 2007-09-27 16:12:21
Username : xxxGilles
Machine : xxx (Microsoft Windows NT 5.1.2600.2)
*******************************
Transcript started, output file is D:WSHPrinterObject.txt
WSH D:Test> set oprn=co("rxvb.printerobject")
WSH D:Test> gm(oprn)
Category Name
--------- -------
Function ConvertToRGB (inRed, inGreen, inblue)
Function Dimensions (strPicturePath)
Sub DrawArc (X1, Y1, Radius, StartA, EndA)
Sub DrawArcC (X1, Y1, Radius, StartA, EndA, cl)
Sub DrawCircle (X1, Y1, Radius)
Sub DrawCircleC (X1, Y1, Radius, cl)
Sub DrawLine (X1, Y1, X2, Y2)
Sub DrawLineC (X1, Y1, X2, Y2, cl)
Sub EndDoc ()
Function GetCaps ()
Function HatchShade (InCood, InColor, HType)
Function ImageDimensions (strPicturePath)
Sub InitializePrinter ()
Sub KillDoc ()
Sub NewPage ()
Sub PaintPicture (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PaintPictureR (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PointSet (X1, Y1, cl)
Sub PrintLine (sText)
Sub PrintLineP (sText, tb)
Sub PrintLineS (sText)
Sub PrintLineT (sText, com)
Sub RotatedText (textstring, angle)
Sub SelectPrinter (prn, [bAnnounce])
Function SolidShade (InCood, InColor)
Function TextHeight (tstr)
Function TextWidth (tstr)
Property AppTitle
Property ColorMode
Property Copies
Property CurrentX
Property CurrentY
Property CX
Property CY
Property DrawWidth
Property Duplex
Property FontBold
Property FontItalic
Property FontName
Property FontSize
Property FontStrikethru
Property FontUnderline
Property ForeColor
Property Orientation
Property PageNo
Property PaperBin
Property PrintQuality
Property PrName
Property Ver
Property Zoom
WSH D:Test>
Transcript stopped.
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
| Ou puis-je trouver les propriétés et méthodes actuelle de cette objet
| printer ?
"Cet objet" , hein ... j'avais glissé !
Merci beaucoup.
Vraiment vraiment....
-azur-
Printer Object, Printers Collection :
http://msdn2.microsoft.com/en-us/library/aa267233(VS.60).aspx
Les méthodes et propriétés supportées par le composant :
*******************************
WSH Transcript Start
Start time : 2007-09-27 16:12:21
Username : xxxGilles
Machine : xxx (Microsoft Windows NT 5.1.2600.2)
*******************************
Transcript started, output file is D:WSHPrinterObject.txt
WSH D:Test> set oprn=co("rxvb.printerobject")
WSH D:Test> gm(oprn)
Category Name
--------- -------
Function ConvertToRGB (inRed, inGreen, inblue)
Function Dimensions (strPicturePath)
Sub DrawArc (X1, Y1, Radius, StartA, EndA)
Sub DrawArcC (X1, Y1, Radius, StartA, EndA, cl)
Sub DrawCircle (X1, Y1, Radius)
Sub DrawCircleC (X1, Y1, Radius, cl)
Sub DrawLine (X1, Y1, X2, Y2)
Sub DrawLineC (X1, Y1, X2, Y2, cl)
Sub EndDoc ()
Function GetCaps ()
Function HatchShade (InCood, InColor, HType)
Function ImageDimensions (strPicturePath)
Sub InitializePrinter ()
Sub KillDoc ()
Sub NewPage ()
Sub PaintPicture (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PaintPictureR (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PointSet (X1, Y1, cl)
Sub PrintLine (sText)
Sub PrintLineP (sText, tb)
Sub PrintLineS (sText)
Sub PrintLineT (sText, com)
Sub RotatedText (textstring, angle)
Sub SelectPrinter (prn, [bAnnounce])
Function SolidShade (InCood, InColor)
Function TextHeight (tstr)
Function TextWidth (tstr)
Property AppTitle
Property ColorMode
Property Copies
Property CurrentX
Property CurrentY
Property CX
Property CY
Property DrawWidth
Property Duplex
Property FontBold
Property FontItalic
Property FontName
Property FontSize
Property FontStrikethru
Property FontUnderline
Property ForeColor
Property Orientation
Property PageNo
Property PaperBin
Property PrintQuality
Property PrName
Property Ver
Property Zoom
WSH D:Test>
Transcript stopped.
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
| Ou puis-je trouver les propriétés et méthodes actuelle de cette objet
| printer ?
"Cet objet" , hein ... j'avais glissé !
Merci beaucoup.
Vraiment vraiment....
-azur-
Printer Object, Printers Collection :
http://msdn2.microsoft.com/en-us/library/aa267233(VS.60).aspx
Les méthodes et propriétés supportées par le composant :
*******************************
WSH Transcript Start
Start time : 2007-09-27 16:12:21
Username : xxxGilles
Machine : xxx (Microsoft Windows NT 5.1.2600.2)
*******************************
Transcript started, output file is D:WSHPrinterObject.txt
WSH D:Test> set oprn=co("rxvb.printerobject")
WSH D:Test> gm(oprn)
Category Name
--------- -------
Function ConvertToRGB (inRed, inGreen, inblue)
Function Dimensions (strPicturePath)
Sub DrawArc (X1, Y1, Radius, StartA, EndA)
Sub DrawArcC (X1, Y1, Radius, StartA, EndA, cl)
Sub DrawCircle (X1, Y1, Radius)
Sub DrawCircleC (X1, Y1, Radius, cl)
Sub DrawLine (X1, Y1, X2, Y2)
Sub DrawLineC (X1, Y1, X2, Y2, cl)
Sub EndDoc ()
Function GetCaps ()
Function HatchShade (InCood, InColor, HType)
Function ImageDimensions (strPicturePath)
Sub InitializePrinter ()
Sub KillDoc ()
Sub NewPage ()
Sub PaintPicture (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PaintPictureR (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PointSet (X1, Y1, cl)
Sub PrintLine (sText)
Sub PrintLineP (sText, tb)
Sub PrintLineS (sText)
Sub PrintLineT (sText, com)
Sub RotatedText (textstring, angle)
Sub SelectPrinter (prn, [bAnnounce])
Function SolidShade (InCood, InColor)
Function TextHeight (tstr)
Function TextWidth (tstr)
Property AppTitle
Property ColorMode
Property Copies
Property CurrentX
Property CurrentY
Property CX
Property CY
Property DrawWidth
Property Duplex
Property FontBold
Property FontItalic
Property FontName
Property FontSize
Property FontStrikethru
Property FontUnderline
Property ForeColor
Property Orientation
Property PageNo
Property PaperBin
Property PrintQuality
Property PrName
Property Ver
Property Zoom
WSH D:Test>
Transcript stopped.
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr
| Ou puis-je trouver les propriétés et méthodes actuelle de cette objet
| printer ?
"Cet objet" , hein ... j'avais glissé !
Merci beaucoup.
Vraiment vraiment....
-azur-
Printer Object, Printers Collection :
http://msdn2.microsoft.com/en-us/library/aa267233(VS.60).aspx
Les méthodes et propriétés supportées par le composant :
*******************************
WSH Transcript Start
Start time : 2007-09-27 16:12:21
Username : xxxGilles
Machine : xxx (Microsoft Windows NT 5.1.2600.2)
*******************************
Transcript started, output file is D:WSHPrinterObject.txt
WSH D:Test> set oprn=co("rxvb.printerobject")
WSH D:Test> gm(oprn)
Category Name
--------- -------
Function ConvertToRGB (inRed, inGreen, inblue)
Function Dimensions (strPicturePath)
Sub DrawArc (X1, Y1, Radius, StartA, EndA)
Sub DrawArcC (X1, Y1, Radius, StartA, EndA, cl)
Sub DrawCircle (X1, Y1, Radius)
Sub DrawCircleC (X1, Y1, Radius, cl)
Sub DrawLine (X1, Y1, X2, Y2)
Sub DrawLineC (X1, Y1, X2, Y2, cl)
Sub EndDoc ()
Function GetCaps ()
Function HatchShade (InCood, InColor, HType)
Function ImageDimensions (strPicturePath)
Sub InitializePrinter ()
Sub KillDoc ()
Sub NewPage ()
Sub PaintPicture (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PaintPictureR (picture, X1, Y1, [W1], [H1], [X2], [Y2],
[W2], [H2], [Opcode])
Sub PointSet (X1, Y1, cl)
Sub PrintLine (sText)
Sub PrintLineP (sText, tb)
Sub PrintLineS (sText)
Sub PrintLineT (sText, com)
Sub RotatedText (textstring, angle)
Sub SelectPrinter (prn, [bAnnounce])
Function SolidShade (InCood, InColor)
Function TextHeight (tstr)
Function TextWidth (tstr)
Property AppTitle
Property ColorMode
Property Copies
Property CurrentX
Property CurrentY
Property CX
Property CY
Property DrawWidth
Property Duplex
Property FontBold
Property FontItalic
Property FontName
Property FontSize
Property FontStrikethru
Property FontUnderline
Property ForeColor
Property Orientation
Property PageNo
Property PaperBin
Property PrintQuality
Property PrName
Property Ver
Property Zoom
WSH D:Test>
Transcript stopped.
--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr