Configuration d'une impression par macro

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur: Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !

Configuration d'une impression par macro

Messagepar Machine Head » 27 Déc 2005 14:14

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
Avatar de l’utilisateur
Machine Head
Membre hOOnoraire
Membre hOOnoraire
 
Message(s) : 123
Inscrit le : 27 Déc 2005 14:08

Messagepar Bidouille » 28 Déc 2005 11:07

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())
Avatar de l’utilisateur
Bidouille
RespOOnsable forum
RespOOnsable forum
 
Message(s) : 10102
Inscrit le : 08 Nov 2005 17:23
Localisation : Brest, France

Messagepar Bidouille » 28 Déc 2005 11:12

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() )
Avatar de l’utilisateur
Bidouille
RespOOnsable forum
RespOOnsable forum
 
Message(s) : 10102
Inscrit le : 08 Nov 2005 17:23
Localisation : Brest, France

Messagepar Ruffian12 » 05 Jan 2006 18:02

Merci je vais essayer cette macro
Ruffian12
Fraîchement OOthentifié
 
Message(s) : 2
Inscrit le : 05 Jan 2006 17:40


Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 1 invité