Page 1 sur 1

Configuration d'une impression par macro

MessagePublié: 27 Déc 2005 14:14
par Machine Head
Bonjour,
je suis en train de réaliser une macro pour imprimer directement des étiquettes mais là je pêche un peu car j'ai regarder dans différents documents d'aide et je ne trouve aucun exemple qui corresponde totalement à ce que je souhaite...
Je souhaiterais donc réaliser une macro qui permette d'imprimer la feuille (sous Calc) qui m'intéresse mais il faudrait que je puisse indiquer au sein de la macro: le nom de l'imprimante (Imprimante XXX), l'orientation (Paysage), le format de la feuille (USER: Largeur:53 mm et hauteur: 25 mm)

D'avance merci de votre aide

MessagePublié: 28 Déc 2005 11:07
par Bidouille
Imprimer en paysage

Code : Tout sélectionner   AgrandirRéduire
Dim mImprOpt(2) As New com.sun.star.beans.PropertyValue
Dim oDocument As Object, oPrinter As Object
oDocument = ThisComponent
mImprOpt(0).Name = "Pages"
mImprOpt(0).Value = 1
mImprOpt(1).Name = "PaperOrientation"
mImprOpt(1).Value = com.sun.star.view.PaperOrientation.LANDSCAPE
mImprOpt(2).Name = "CopyCount"
mImprOpt(2).Value = 2
oPrinter = oDocument.getPrinter()
oDocument.Print(mImprOpt())

MessagePublié: 28 Déc 2005 11:12
par Bidouille
Sélectionner une imprimante

Code : Tout sélectionner   AgrandirRéduire
Dim mImprOpt(3) as New com.sun.star.beans.PropertyValue
Dim oDoc as Object
Dim Toto()

oDoc = ThisComponent

mImprOpt(0).Name = "Name"
mImprOpt(0).Value = "Une autre imprimante"
mImprOpt(1).Name = "PaperFormat"
mImprOpt(1).Value = com.sun.star.view.PaperFormat.A4
mImprOpt(2).Name = "PaperOrientation"
mImprOpt(2).Value = com.sun.star.view.PaperOrientation.PORTRAIT
mImprOpt(3).Name = "Sort"
mImprOpt(3).Value = FALSE
   
oDoc.setPrinter( mImprOpt() )
   
oDoc.print( Toto() )

MessagePublié: 05 Jan 2006 18:02
par Ruffian12
Merci je vais essayer cette macro