vbamania.pl
login:
hasło:
 
  *Rejestracja *Zapomniane hasło
 Dziś jest czwartek, 02 maja 2024 roku.
Ustaw jako stronę startową Ulubione Napisz
PowrótPowrót do serwisu  RegulaminRegulamin rssRSS

  tytuł wątku:
Wątki dyskusji

wydruk na jednej stronie


otwartyotwarty rozpoczął: VBAmator postów: 4



napisał: jalamas
postów: 316


umieszczony:
30 grudnia 2018
08:10

  
Tak dla formalności, cytat z pomocy VBA:
Cytat:
PageSetup.FitToPagesTall Property
....
If the Zoom property is True, the FitToPagesTall property is ignored.

Analogicznie jest w opisie FitToPagesWide
napisał: VBAmator
postów: 67


umieszczony:
28 grudnia 2018
08:40

  
Podziałało.
Dziękuję.
napisał: Trebor
postów: 1209


umieszczony:
27 grudnia 2018
21:20

  
Spróbuj dopisać jeszcze zoom = False:
With ActiveSheet.PageSetup
    .PrintArea = zakres
    .Orientation = xlLandscape
    .PaperSize = xlPaperA4
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With



Pozdrawiam
napisał: VBAmator
postów: 67


umieszczony:
27 grudnia 2018
13:44

  
Cześć.
Męczę się z linijkami:
.FitToPagesWide = 1
.FitToPagesTall = 1
są kompletnie nieaktywne.

Potrzebuję narzucić użytkownikowi wydruk na jednej stronie.
With ActiveSheet.PageSetup
    .PrintArea = zakres
    .Orientation = xlLandscape
    .PaperSize = xlPaperA4
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With


O ile np. orientacja papieru działa tak nic nie dzieje się z dostosowaniem.
W czym rzecz?


<-wstecz  1  dalej->
wszystkich stron: 1


Sortuj posty: z