Message-ID:

6 May, 2024: The networking issue during the past two days has been identified and appears to be fixed. Will keep monitoring.

Planilha

<5ffced3f-a5af-41ac-af58-ae71155ee328n@googlegroups.com>

https://www.novabbs.com/devel/article-flat.php?id=10530&group=comp.lang.xharbour#10530

copy link Newsgroups: comp.lang.xharbour

X-Received: by 2002:a37:acc:0:b0:67d:320e:7eb with SMTP id 195-20020a370acc000000b0067d320e07ebmr3076773qkk.513.1648732322845;
Thu, 31 Mar 2022 06:12:02 -0700 (PDT)
X-Received: by 2002:a05:620a:28c2:b0:67f:329e:28a with SMTP id
l2-20020a05620a28c200b0067f329e028amr3215800qkp.29.1648732322440; Thu, 31 Mar
2022 06:12:02 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!nntp.club.cc.cmu.edu!45.76.7.193.MISMATCH!3.us.feeder.erje.net!feeder.erje.net!border1.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Thu, 31 Mar 2022 06:12:02 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=191.33.76.74; posting-account=hvyfuwoAAABbccmG6-NaeMI2o1Rh659A
NNTP-Posting-Host: 191.33.76.74
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <5ffced3f-a5af-41ac-af58-ae71155ee328n@googlegroups.com>
Subject: Planilha
From: raimundo...@aspec.com.br (Raimundo Machado de Morais Neto)
Injection-Date: Thu, 31 Mar 2022 13:12:02 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Lines: 24

by: Raimundo Machado de - Thu, 31 Mar 2022 13:12 UTC

Bom dia!

Amigos, como posso fazer para configurar a página de uma planilha para que ela fique default como LANDSCAPE?

Tentei "moldar" esse código, mas não obtive sucesso.

Dim Doc As Object
Dim Sheet As Object
Dim StyleFamilies As Object
Dim PageStyles As Object
Dim DefPage As Object
Doc = ThisComponent
StyleFamilies = Doc.StyleFamilies
PageStyles = StyleFamilies.getByName("PageStyles")
DefPage = PageStyles.getByName("Default")
DefPage.IsLandscape = True
DefPage.Width = 21000
DefPage.Height = 14800

Alguém pode me dar um suporte??

Agradeço,

Subject	Author
Planilha	Raimundo Machado de Morais Neto

6 May, 2024: The networking issue during the past two days has been identified and appears to be fixed. Will keep monitoring.

devel / comp.lang.xharbour / Planilha