Chartobject in Userform landscape uitprinten

[huijb]

D.m.v. onderstaande code roep ik een grafiek op in een Userform;

Private Sub UserForm_Initialize()
    ChartNum = 1
    UpdateChart
End Sub

Private Sub UpdateChart()
    Set CurrentChart = Sheets("Charts").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 300
    CurrentChart.Parent.Height = 150

'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
    CurrentChart.Export FileName:=Fname, FilterName:="GIF"

'   Show the chart
    Image1.Picture = LoadPicture(Fname)
End Sub

Ik krijg nu netjes, in een Userform de grafiek te zien, maar nu komt het, ik wil de grafiek vervolgens uitprinten op "Landscape" en dat gaat dus niet, met als resultaat dat de helft van de grafiek wegvalt. Wat is de oplossing om de grafiek netjes op landscape te printen?

 

[mderking]

In principe print hij gewoon zoals onder Page setup (pagina eigenschappen) is aangegeven.

Dus als je de grafiek daar op Landscape insteld, zou het goed moeten gaan.

Je kunt per sheet binnen een werkboek instellen of het wel of niet landscape moet zijn, dus door grafiek naar landscape te zetten zal de rest op portrait blijven staan.

m.v.g,
Mark

 

[huijb]

In principe print hij gewoon zoals onder Page setup (pagina eigenschappen) is aangegeven.

Dus als je de grafiek daar op Landscape insteld, zou het goed moeten gaan.

Je kunt per sheet binnen een werkboek instellen of het wel of niet landscape moet zijn, dus door grafiek naar landscape te zetten zal de rest op portrait blijven staan.

m.v.g,
Mark

Nee dat is niet waar, dat staat ingesteld maar blijft portrait printen. De grafiek staat in een Userform dus heeft even niets met een Workbook of Worksheet van doen.

 

[Finch]

Welke grafiek wil je printen? Die in je workbook, of die op je userform? En op welke manier trigger je dat printen? Code? Zo ja, welke code?

 

[huijb]

Welke grafiek wil je printen? Die in je workbook, of die op je userform? En op welke manier trigger je dat printen? Code? Zo ja, welke code?

Die uit het Userform, met deze code;

Application.ScreenUpdating = False
     With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.354330708661417)
        .RightMargin = Application.InchesToPoints(0.354330708661417)
        .TopMargin = Application.InchesToPoints(0.78740157480315)
        .BottomMargin = Application.InchesToPoints(0.78740157480315)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = True
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 92
        .PrintErrors = xlPrintErrorsDisplayed
    End With
Application.ScreenUpdating = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

 

[Wigi]

Huijb

ook jij mag de zoekfunctie gebruiken

Ik heb gewoon gezocht op landscape en vond deze topic:

http://www.helpmij.nl/forum/showthread.php?t=316243&highlight=landscape

Het bevat eerder door mij geschreven code.

Het stond als één van de eerste topics, nog zonder te beperken tot MS Office subforum.

Wigi

 

[huijb]

Huijb

ook jij mag de zoekfunctie gebruiken

Ik heb gewoon gezocht op landscape en vond deze topic:

http://www.helpmij.nl/forum/showthread.php?t=316243&highlight=landscape

Het bevat eerder door mij geschreven code.

Het stond als één van de eerste topics, nog zonder te beperken tot MS Office subforum.

Wigi

Die heb ik gisterenochtend ook gevonden en ben die code aan het testen. Het lijkt er ook op dat het werkt.

 

[Wigi]

OK, als het niet mocht werken horen we het wel.

 

[huijb]

OK, als het niet mocht werken horen we het wel.

Het ziet er hoopvol uit Wigi. :thumb: