Annonce
L'appel à participation est ouvert jusqu'au 19 janvier 2025!
#1 Wed 22 December 2004 14:22
- ROBIN Thomas
- Invité
Orientation de la mise en page
Bonjour,
Comment, par programation mapbasic, specifier que l'on veut une
orientation paysage et non pas portrait .
Merci d'avance pour votre aide.
THOMAS ROBIN
VCAT CNASEA GUYANE
#2 Thu 23 December 2004 09:10
- Florent Luquet
- Invité
Re: Orientation de la mise en page
Bonjour,
Voici une possibilite :
Set Window frontWindow() Printer Orientation LandScape
Cordialement
Florent Luquet
Etudes cartographiques et developpements metiers en SIG
#3 Thu 23 December 2004 09:10
- Francois Biju-Duval
- Invité
Re: Orientation de la mise en page
dim CommandString as string
dim idMiseenPage as integer
'##################
Sub DefPagePortraitA4
IdMiseenPage = Windowid(Frontwindow())
CommandString = Set Window & IdMiseenPage
& Printer &
Name & Chr(34) & HP DesignJet 1055CM by HP & Chr(34)
&
Orientation Portrait Copies 5 Papersize 9
Run Command CommandString
end sub
'##################
Sub DefPagePaysageA4
IdMiseenPage = Windowid(Frontwindow())
CommandString = Set Window & IdMiseenPage
& Printer &
Name & Chr(34) & HP DesignJet 1055CM by HP & Chr(34)
&
Orientation Landscape Copies 5 Papersize 9
Run Command CommandString
end sub
'###############
Sub DefPagePortraitA3
IdMiseenPage = Windowid(Frontwindow())
CommandString = Set Window & IdMiseenPage
& Printer &
Name & Chr(34) & HP DesignJet 1055CM by HP & Chr(34)
&
Orientation Portrait Copies 1 Papersize 8
Run Command CommandString
end sub
'##################
Sub DefPagePaysageA3
IdMiseenPage = Windowid(Frontwindow())
CommandString = Set Window & IdMiseenPage
& Printer &
Name & Chr(34) & HP DesignJet 1055CM by HP & Chr(34)
&
Orientation Landscape Copies 1 Papersize 67
Run Command CommandString
end sub
Remarque : je fais une chaîne de commande car MapBasic
n'apprécie pas du tout Papersize chiffre à nu à
la compilation et plante royalement en erreur interne ce qui reste pour
moi un mystère ...
