check knap printet ud som ja??

sæt en end if på til sidst....

undskyld  men det havde jeg gjort

men den skriver 1 når den er checked og 0 når den ikke er.

Prøv:
----------------------
If chkBad.Value = 0 Then
    Print \"Nej\"
Else
    Print \"Ja\"
End If
-----------------------
Det dutter :P

/MadD

det gør det......bare ikke så godt.




Private Sub cmdUdskriv_Click()
Dim Ja As String
Dim Nej As String

Printer.FontBold = True
Printer.Print \"Navn                    By                        Standard                  E-vær.      Bad        D-vær.        Bad\"

Printer.FontBold = False
If chkEnkeltb.Value = 0 Then
    Print \"Nej\"
Else
    Print \"Ja\"
End If

Filnummer = 1
Open \"c:\\vbfiler\\Sted.txt\" _
    For Random Access Read As #1 Len = Len(Sted)
    For Nr = 1 To LOF(1) / Len(Sted)
        Get #1, Nr, Sted
        Printer.Print Sted.des; Tab(20); _
        Sted.By; Tab(39); Sted.Standard; Tab(61); Sted.Enkel; Tab(71); Sted.Enkeltb; Tab(82); _
        Sted.Dobbelt; Tab(93); Sted.Dobbelttb

    Next
    Close
    Printer.EndDoc

her er hele printer koden

Hvordan kan det ikke virke godt ?

den skriver ikke chech knappen ud som ja eller nej  men 1 eller 0

Select Case (chkEnkeltb.Value = 0)
    Case True:  Printer.Print \"Nej\"
    Case False: Printer.Print \"Ja\"
End Select

eller vil du have den til at printer variablerne Ja og Nej ud ?

Select Case (chkEnkeltb.Value = 0)
    Case True:  Printer.Print Nej
    Case False: Printer.Print Ja\"
End Select

Der var lige en \" for meget med ..

Select Case (chkEnkeltb.Value = 0)
    Case True:  Printer.Print Nej
    Case False: Printer.Print Ja
End Select

If chkEnkeltb.Value = 0 Then
  Enkelbad = \"Nej\"
Else
    Enkelbad = \"Ja\"
End If
If chkDobbelttb.Value = 0 Then
  Dobbeltbad = \"Nej\"
Else
    Dobbeltbad = \"Ja\"
End If
Filnummer = 1
Open \"c:\\vbfiler\\Sted.txt\" _
    For Random Access Read As #1 Len = Len(Sted)
    For Nr = 1 To LOF(1) / Len(Sted)
        Get #1, Nr, Sted
        Printer.Print Sted.des; Tab(20); _
        Sted.By; Tab(39); Sted.Standard; Tab(61); Sted.Enkel; Tab(71); Enkelbad; Tab(82); _
        Sted.Dobbelt; Tab(93); Dobbeltbad

!?!?

øhh .. explain !?

ja jeg fandt selv frem til en løsning....håber det er ok med jer.......tak for jeres forsøg

tjaa ..

jeg brugte print i starten....det ville den ikke gå men til da jeg prøvede at lave print til en vaiable....

TD jeg var ikke lige helt med på din case ting...så jeg måtte prøve at forsætte i samme  stil