[Resolved] Nyomtatási kép beállítása utáni hibaüzenet

Sziasztok!

A nyomtatási képen állítok, utána feljön bezáráskor egy üzenet, hogy A kÉP TÚL NAGY, EGY RÉSZE ELVÉSZ.

Ez a kódsor, ami után megjelenik:

resz1 = „$A$1:$P$” & vege

Application.PrintCommunication = True

ActiveSheet.PageSetup.PrintArea = resz1

Application.PrintCommunication = False

With ActiveSheet.PageSetup

.LeftHeader = „&Z&F”

.CenterHeader = „”

.RightHeader = „”

.LeftFooter = „”

.CenterFooter = „”

.RightFooter = „”

.LeftMargin = Application.InchesToPoints(0.31496062992126)

.RightMargin = Application.InchesToPoints(0.31496062992126)

.TopMargin = Application.InchesToPoints(0.31496062992126)

.BottomMargin = Application.InchesToPoints(0.31496062992126)

.HeaderMargin = Application.InchesToPoints(0.31496062992126)

.FooterMargin = Application.InchesToPoints(0.31496062992126)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality = 600

.CenterHorizontally = False

.CenterVertically = False

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperA4

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = 53

.PrintErrors = xlPrintErrorsDisplayed

.OddAndEvenPagesHeaderFooter = False

.DifferentFirstPageHeaderFooter = False

.ScaleWithDocHeaderFooter = True

.AlignMarginsHeaderFooter = True

.EvenPage.LeftHeader.Text = „”

.EvenPage.CenterHeader.Text = „”

.EvenPage.RightHeader.Text = „”

.EvenPage.LeftFooter.Text = „”

.EvenPage.CenterFooter.Text = „”

.EvenPage.RightFooter.Text = „”

.FirstPage.LeftHeader.Text = „”

.FirstPage.CenterHeader.Text = „”

.FirstPage.RightHeader.Text = „”

.FirstPage.LeftFooter.Text = „”

.FirstPage.CenterFooter.Text = „”

.FirstPage.RightFooter.Text = „”

End With

Application.PrintCommunication = True