Makro ile print probemi

[northcyprus]

iyi günler değerli hocalarım ve arkadaşlar.

Benim excel dosyamda yaklaşık 100 tane sayfam var ve ben bu sayfaların printini alıyorum fakat excel dosyasını her açtışımda PAPER SİZE değişiyor ve düzeltmem gerekiyor.
Excel dosyasına her açıldığında PAPER SİZE Continuous, Wide olmasını istiyorum bunu makro ile yapmak mümkün mü aceba. eğer mümkün ise kod nasıl olmadır. yardımlarınızı bekliyorum saygılarımla.

 

[northcyprus]

sayın hocalarım degerli arkadaşlar bu konuya bir fikri olan yok mu aceba

 

[hamitcan]

Aşağıdaki Kodu, ThisWorkBook kısmına ekleyin. Kırmızı ile belirttiğim kısmı aşağıdaki listeden size uygun olanı ile değiştirin.

Private Sub Workbook_Open()
    Worksheets("Sayfa1").PageSetup.PaperSize = [color=red]xlPaperLegal[/color]
End Sub

XlPaperSize Enumeration 
Specifies the size of the paper.
Version Information
 Version Added:  Excel 2007

Name Value Description 
xlPaper10x14 16 10 in. x 14 in. 
xlPaper11x17 17 11 in. x 17 in. 
xlPaperA3 8 A3 (297 mm x 420 mm) 
xlPaperA4 9 A4 (210 mm x 297 mm) 
xlPaperA4Small 10 A4 Small (210 mm x 297 mm) 
xlPaperA5 11 A5 (148 mm x 210 mm) 
xlPaperB4 12 B4 (250 mm x 354 mm) 
xlPaperB5 13 A5 (148 mm x 210 mm) 
xlPaperCsheet 24 C size sheet 
xlPaperDsheet 25 D size sheet 
xlPaperEnvelope10 20 Envelope #10 (4-1/8 in. x 9-1/2 in.) 
xlPaperEnvelope11 21 Envelope #11 (4-1/2 in. x 10-3/8 in.) 
xlPaperEnvelope12 22 Envelope #12 (4-1/2 in. x 11 in.) 
xlPaperEnvelope14 23 Envelope #14 (5 in. x 11-1/2 in.) 
xlPaperEnvelope9 19 Envelope #9 (3-7/8 in. x 8-7/8 in.) 
xlPaperEnvelopeB4 33 Envelope B4 (250 mm x 353 mm) 
xlPaperEnvelopeB5 34 Envelope B5 (176 mm x 250 mm) 
xlPaperEnvelopeB6 35 Envelope B6 (176 mm x 125 mm) 
xlPaperEnvelopeC3 29 Envelope C3 (324 mm x 458 mm) 
xlPaperEnvelopeC4 30 Envelope C4 (229 mm x 324 mm) 
xlPaperEnvelopeC5 28 Envelope C5 (162 mm x 229 mm) 
xlPaperEnvelopeC6 31 Envelope C6 (114 mm x 162 mm) 
xlPaperEnvelopeC65 32 Envelope C65 (114 mm x 229 mm) 
xlPaperEnvelopeDL 27 Envelope DL (110 mm x 220 mm) 
xlPaperEnvelopeItaly 36 Envelope (110 mm x 230 mm) 
xlPaperEnvelopeMonarch 37 Envelope Monarch (3-7/8 in. x 7-1/2 in.) 
xlPaperEnvelopePersonal 38 Envelope (3-5/8 in. x 6-1/2 in.) 
xlPaperEsheet 26 E size sheet 
xlPaperExecutive 7 Executive (7-1/2 in. x 10-1/2 in.) 
xlPaperFanfoldLegalGerman 41 German Legal Fanfold (8-1/2 in. x 13 in.) 
xlPaperFanfoldStdGerman 40 German Legal Fanfold (8-1/2 in. x 13 in.) 
xlPaperFanfoldUS 39 U.S. Standard Fanfold (14-7/8 in. x 11 in.) 
xlPaperFolio 14 Folio (8-1/2 in. x 13 in.) 
xlPaperLedger 4 Ledger (17 in. x 11 in.) 
xlPaperLegal 5 Legal (8-1/2 in. x 14 in.) 
xlPaperLetter 1 Letter (8-1/2 in. x 11 in.) 
xlPaperLetterSmall 2 Letter Small (8-1/2 in. x 11 in.) 
xlPaperNote 18 Note (8-1/2 in. x 11 in.) 
xlPaperQuarto 15 Quarto (215 mm x 275 mm) 
xlPaperStatement 6 Statement (5-1/2 in. x 8-1/2 in.) 
xlPaperTabloid 3 Tabloid (11 in. x 17 in.) 
xlPaperUser 256 User-defined

 

[northcyprus]

ilginiz için teşşekür ederim sayın hocam....