[VBA] Printen werkt niet

[DarkShadow]

Hoi, ik dacht even een simpele printbutton te maken, maar dat valt toch tegen. Ik heb dus een nieuw bestand aangemaakt met daarin een chart, dit wordt gedaan via een kleine interface die ik gewoon in een sheet heb aangemaakt met een aantal buttons. Het leek me leuk ook een button aan te maken voor het printen van de chart. Nu heb ik van alles al geprobeerd, maar hij zegt continue als error dat er geen object aanwezig is of dat er nog iets geset moet worden:

Visual Basic:

Public uitbestand As Workbook
Public naarbestand As Workbook
Public fileconversion As Workbook
Public uitbestandnaam As Variant
Public naarbestandnaam As Variant
Public nrofshots As Integer
Public nrofpoints As Integer
Public savenaam As String
Public NieuweNaam As String
Public grafiek As Chart

Public Sub main()
blabla en een hoop geset van variabelen
End sub


Public Sub CommandButton5_Click()

'With naarbestand.Worksheets(1).PageSetup
' .CenterHorizontally = True
'  .CenterVertically = False
'  .Orientation = xlLandscape
' naarbestand.Worksheets(1).PrintOut
'End With

naarbestand.grafiek.PrintOut

End Sub

Zo ziet het er ongeveer uit, ik heb dat stukje comment ook geprobeerd, maar dat werkt ook niet.
Weet iemand zoiets werkend te krijgen? Alvast bedankt!

[DarkShadow]

Ik heb nu deze minder charmante oplossing:

Visual Basic:

Public Sub CommandButton5_Click()

Dim ganaarbestandnaam As String
Dim ganaarbestand As Workbook

ganaarbestandnaam = Sheets("start").Cells(31, 5).Value
If ganaarbestandnaam = "File was not saved." Then GoTo Cancel

Set ganaarbestand = Workbooks.Open(ganaarbestandnaam)
ganaarbestand.ActiveChart.PrintOut
ganaarbestand.Close
  
  Windows("fileconversion.xls").Activate

Exit Sub
Cancel:
MsgBox "Geen Chart aanwezig"

End Sub

Dit is gewoon op basis van bepaalde dingen die standaard op het sheet geplaatst worden. zoals de bestandsnaam en path waarheen de file met de chart wordt geplaatst.
Het probleem is volgens mij dat de variabelen soms leeg zijn.

[ Voor 17% gewijzigd door DarkShadow op 22-09-2005 09:38 ]

[Lustucru]

Het is al vaker geroepen: maar gebruik de edit-knop als je als post in een topic waarin jezelf de laatste poster bent. Dit wordt gezien als kicken en daar doen we niet aan binnen 24 uur.

Als Excel roept dateen variabele leeg is, dan zal dat inderdaad wel het geval zijn. Druks eens op shift F9 in de vba editor en controleer de inhoud van je variabelen en ga vervolgens na waarom de variabele leeg is, terwijl jij zou denken dat hij gevuld is.
Lees ook eens het stuk in de help over de levensduur van variabelen, dan wordt waarschijnlijk e.e.a. een stuk helderder. Bovendien lijkt het erop dat je de objecten workbook en worksheet door elkaar haalt.

Enfin: hier kunnen we niet veel mee behalve wild gokken. Deze gaat dus dicht.