Abfrage, wie oft man drucken will

[Valheru]

    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim a As Integer
        Dim c As Integer
        a = InputBox("Wie oft wollen sie drucken?", "Druckorder")
        For c = 1 To a
            Dim hDC As IntPtr
            hDC = e.Graphics.GetHdc
            AxAXLinear1.PrintAX(hDC.ToInt32(), 0, 0, 300, 200)
            e.Graphics.ReleaseHdc(hDC)
        Next c
    End Sub

Allerdings fängt der so vorher an zu drucken.
Wie kann ich das machen, dass der wenn man auf ok drückt anfängt zu drucken.
Und wenn man auf abbrechen drückt, dann soll gar nix passieren.

Wer mir helfen kann, ich wäre dankbar

Gruß Basti

 

[Norbert Eder]

Also laut der Methodenbeschreibung in der MSDN heißt es:

Der vom User eingegebene Wert wird bei Betätigen von OK bzw. der Enter-Taste zurückgeliefert. Bei Betätigen von Cancel wird ein String mit null Stellen zurückgeliefert. Also "".

Demzufolge:

if a <> "" then
     'Hier Code fürs Drucken
end if

Wobei Du auch noch abfragen solltest, ob es sich auch um einen numerischen Wert handelt .. -> wieder MSDN

 

[TOLIK]

Also wenn ich dich richtig verstanden habe, dann würd ich mal sagen das du erstmal abfragst wie oft gedruckt werden soll.
Wenn man dann auf OK klickt soll er drucken und wenn du auf abbrechen klickst soll gar nix passieren. Richtig?

 

[Valheru]

jojo war schon so gedacht, hab ich aber schon anders gelöst

Ok neues Problem:
Wie erstelle ich einen Barcode mit VB.NET?
Code 128.

Ich hab gelesen, dass man es mit PDF files machen kann, aber ich würde das lieber nur mit VBA erstellen.
Zu dem muss die Produktnr. unter dem Code stehen und das heutige Datum sollte auch irgendwo dabei stehen.
Geht das?

Hab keine Ahnung mit Druckelemete für VB erstellen, ausser vielleicht AccessBericht.

Gruß Basti