Nous utilisons des cookies pour vous garantir la meilleure expérience sur notre site. Si vous continuez à utiliser ce dernier, nous considèrerons que vous acceptez l'utilisation des cookies. J'ai compris ! ou En savoir plus !.
banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#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 ...

 

Pied de page des forums

Powered by FluxBB