Configuration d'une impression par macro

[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

[Bidouille]

Imprimer en paysage

Code : Tout sélectionner

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())

[Bidouille]

Sélectionner une imprimante

Code : Tout sélectionner

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() ) 

[Ruffian12]

Merci je vais essayer cette macro