hello,
heb in vb6 een applicatie(tje) in elkaar gestoken, resultaten worden in excel werkblad gestoken en moeten daarna afgedrukt worden.
hieronder een stukje code voor mijn print-knop :
Private Sub cmdPrint_Click()
Set XL = CreateObject("Excel.Application")
With XL
.Visible = False
.Workbooks.Open FileName:=App.Path & "\verslag.xls" 'open template verslag.xls
.Sheets("Blad1").Activate 'aktiveer blad 1
.Range("G23").Value = txtInstallVermogen + " W"
.Range("I24").Value = txtGTfactor
.Range("C25").Value = txtTotaal.Text + " W"
.Range("E27").Value = spanning
.Range("E28").Value = txtStroom.Text + " A"
.Range("G30").Value = txtDoorsnede.Text
.Range("F32").Value = txtAutomaat.Text
.Range("F34").Value = txtZekering.Text
.Range("B9").Value = txtKlant
.Range("B10").Value = txtProject
.Range("B11").Value = txtUnit
.Range("A23").Value = txtOpmerking
End With
Set PS = XL.ActiveSheet
PS.PrintOut
cmdPrint.Enabled = False 'printbutton niet meer klikbaar
Application.DisplayAlerts = False 'geen waarschuwing geven ivm opslaan in dit geval
XL.Quit
End Sub
Als ik op de print-knop druk, print ie rechtstreeks af naar de standaard printer die in windows ingesteld staat, dat wil ik dus niet. Hoe laat ik het standaard dialoogvester voor afdrukken openen zodat ik de printer kan kiezen ??
Alvast bedankt
ZeRo
heb in vb6 een applicatie(tje) in elkaar gestoken, resultaten worden in excel werkblad gestoken en moeten daarna afgedrukt worden.
hieronder een stukje code voor mijn print-knop :
Private Sub cmdPrint_Click()
Set XL = CreateObject("Excel.Application")
With XL
.Visible = False
.Workbooks.Open FileName:=App.Path & "\verslag.xls" 'open template verslag.xls
.Sheets("Blad1").Activate 'aktiveer blad 1
.Range("G23").Value = txtInstallVermogen + " W"
.Range("I24").Value = txtGTfactor
.Range("C25").Value = txtTotaal.Text + " W"
.Range("E27").Value = spanning
.Range("E28").Value = txtStroom.Text + " A"
.Range("G30").Value = txtDoorsnede.Text
.Range("F32").Value = txtAutomaat.Text
.Range("F34").Value = txtZekering.Text
.Range("B9").Value = txtKlant
.Range("B10").Value = txtProject
.Range("B11").Value = txtUnit
.Range("A23").Value = txtOpmerking
End With
Set PS = XL.ActiveSheet
PS.PrintOut
cmdPrint.Enabled = False 'printbutton niet meer klikbaar
Application.DisplayAlerts = False 'geen waarschuwing geven ivm opslaan in dit geval
XL.Quit
End Sub
Als ik op de print-knop druk, print ie rechtstreeks af naar de standaard printer die in windows ingesteld staat, dat wil ik dus niet. Hoe laat ik het standaard dialoogvester voor afdrukken openen zodat ik de printer kan kiezen ??
Alvast bedankt
ZeRo