Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - makro zmieniajace ustawienia paiperu z letter na A4

poldas

Witam

Mam mały problemik. Posiadam spora ilość dokomunetoów (faktur w excelu) w których format paieru ustawiony jest na letter, przy probie wydruku drukarak staje i czeka na podanei paieru letter z podajnika recznego *w podajniku jedynie paier A4) Chcialbym zamienic jszybko we wszystkich dokomentach (ok 200 plikow) rodzaj paieru z letter na A4 Czy jest to mozliwe? moze napisanie jakiegos makra?

Z gory dzieki za pomoc

Volatile · Wysłany: 11-04-2007, 14:33

Troche koslawo, ale powinno działać. Kilka warunków:
1. pliki znajdują się w katalogu C:\YYY
2. Plik z makrem (czyli "start.xls") również znajduje sie w tym katalogu
3. Obszar wydruku był wczeniesniej zdefiniowany

Kod:

Sub zamiana()
myFile = Dir("C:\YYY\*.xls")
Do While myFile <> ""
If myFile = "Start.xls" Then GoTo dalej
Workbooks.Open (myFile)
ActiveSheet.PageSetup.PaperSize = xlPaperA4
With ActiveWorkbook
.Save
.Close
End With
dalej:
myFile = Dir()
Loop
End Sub