Visual Basic: Print Document immer an festen Speicherort speichern und Dateiname vorgeben?

Servus,

mit folgendem Code kann ich meine Print Form drucken.

  If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK
  Then
    PrintDocument1.DocumentName = "Das ist ein Document"
    PrintDocument1.Print()
  End If

  Me.ShowInTaskbar = False
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
  Handles PrintDocument1.PrintPage
  Dim bmp As New Bitmap(Me.Width, Me.Height)
  Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
  ' e.Graphics.ScaleTransform(0.2, 0.2)
  e.Graphics.DrawImage(bmp, 0, 0)
  Me.ShowInTaskbar = False
End Sub

Wie kann ich festlegen, dass immer der Microsoft PDF Creator verwendet werden soll und dass die Datei einen bestimmten Namen hat sowie an einer bestimmten Stelle gespeichert wird?

Der obige Code geht, aber man muss immer selber den Drucker, den Namen und den Speicherort wählen. Das soll aber automatisch gehen. Habt ihr eine Lösung?

2 Antworten

Suboptimierer

16.11.2021, 15:11

An die Einstellungen des Druckers PrinterSettings kommst du über PrintDialog.PrinterSettings.

https://docs.microsoft.com/de-de/dotnet/api/system.windows.forms.printdialog.printersettings?view=windowsdesktop-5.0

Im PrintPreviewDialog finde ich diese Eigenschaft über den Zwischenschrit Document.

PrintPreviewDialog1.Document.PrinterSettings

https://docs.microsoft.com/de-de/dotnet/api/system.drawing.printing.printdocument.printersettings?view=windowsdesktop-5.0

Woher ich das weiß:Berufserfahrung – Programmierer

Geforce2

Fragesteller

16.11.2021, 15:28

Sehr intressant allerdings ändert sich nix daran das die manuelle oberfläche aufplopt und von mit nen drucker und einen speicherort sowie Dokumentennamen will

IchMalWiederXY

24.11.2021, 15:54

Wenn du den Code als VBA geschrieben hast (hinten in Excel oder Word, etc)
Dann einfacher "Speichern unter" als PDF programmieren.
"Eine" Zeile, erspart die Steuerung des Drucker Dialog.

Geforce2

Fragesteller

26.01.2022, 21:57

Ist leider Visual basic in Visual Studio 2019

IchMalWiederXY

27.01.2022, 18:10

@Geforce2

Ebenfalls Microsoft. Referenziere die Bibliotheken, dann lassen sich Excel, Word Objekte erzeugen und genauso verwenden wie man es auch VBA kennt.

Hallo Experten, ich habe einen Star Bon-Drucker TSP-100 und habe eine Form entworfen, in die entweder manuell oder automatisch ein Text in eine Textbox und ein Bild in eine Picturebox geladen wird. Nun möchte ich diese Boxen ausdrucken und zwar auf einmal und zusätzlich mit der Grafik, die im Drucker gespeichert ist und mit einem Barcode, den der Drucker per ESC-Sequenz drucken können sollte....

Es sollte so aussehen: 1. Bonkopf 2. Picturebox 3. Barcode 4. Textbox

Ich habe folgenden Code:

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage 
    e.Graphics.DrawString(RichTextBox1.Text, New Font("Verdana", 20, FontStyle.Bold), Brushes.Black, 10, 10) 
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK 
        PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        PrintDocument1.Print() 
    End If 
End Sub

    If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

        PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
        PrintDocument1.Print()
    Else : End If

End Sub

Muss ich für jedes Objekt einen eigenen Printdialog einbetten?

Und wie kann ich es schaffe, dass der Drucker eine Zahl, bsw. 4050607080 als Barcode im Code 128 o.ä. (kein EAN) druckt?

Für eure Antworten danke ich jetzt schon......

Ach ja, und frohe Ostern noch :-)

...zur Frage

Visual Basic Ping Pong Spiel

Ich komme nicht weiter, da ich komplett neu bin. Ich versuche momentan dieses Spiel: http://www.youtube.com/watch?v=fySEJPoV74Q zu programmieren, nur in dem umgekerhrten Format. Aber es gibt zei Fehler: ,,Das Item ist Read only``

Hier der Code:

Public Class Form1 Dim unten As Double = +5 Dim rechts As Double = +5 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Visible = True Button2.Visible = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
    Button2.Visible = True
    Button1.Visible = False

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Stop()
    Button1.Visible = True
    Button2.Visible = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


    ball.Bottom -= unten
    ball.Right -= rechts

    If ball.Left <= 0 Then rechts = -5
    If ball.Right >= 772 Then rechts = +5
    If ball.Bottom >= 659 Then unten = -5
    If ball.Top <= 0 Then unten = +5

    Plattform1.Top = MousePosition.X

    If ball.Top >= Plattform2.Top Then Plattform2.Top += 5

End Sub

End Class

Übrigens wenn ich die Maus bewege (wenn das Spiel an ist) bewegt sich mein ,,Schläger`` nach oben und unten. Hoffe das mir wer weiterhelfen kann =)

...zur Frage

Visual Basic - Wie nutzt man Windows speech recognition richtig?

Hallo, seit langem suche ich schon seit langem nach einer Lösung im Internet system speech recognition in VB gescheit nutzen zukönnen. Bisher habe ich folgendes gefunden und genutzt.

//////////////////////

Imports System.Speech Public Class Form1

Public synth As New Speech.Synthesis.SpeechSynthesizer

Public WithEvents recognizer As New Speech.Recognition.SpeechRecognitionEngine

Dim gram As New System.Speech.Recognition.DictationGrammar()

Public Sub GotSpeech(ByVal sender As Object, ByVal phrase As System.Speech.Recognition.SpeechRecognizedEventArgs) Handles recognizer.SpeechRecognized

words.Text = phrase.Result.Text

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

recognizer.LoadGrammar(gram)

recognizer.SetInputToDefaultAudioDevice()

recognizer.RecognizeAsync()

End Sub

End Class

//////////////////////

Nur leider versteht mich in diesem Falle Vb kaum. Zb. wenn ich "Nur ein Test" sage versteht Vb "Blaum ein Text" Und wenn ich Cortana einmal das selbe sage versteht sie es... Und da ich einfach keine Lösung in bereits vorhandenen Threads finde hoffe ich das mir netterweise einer von euch helfen könnte. :)

...zur Frage

Wie kann ich eine Windows Forms Anwendung mit variablem Start Form erstellen?

Ich erstelle mit Visual Studio 2022 ein neues Windows Forms VB.net Projekt und möchte abhängig von den Commandline-Parametern entweder Form1, Form2 oder gar kein Form anzeigen.

In der ApplicationEvents.vb leite ich mit einem Eventhandler

       Public Shared Sub ApplicationStartup(ByVal sender As Object, ByVal e As StartupEventArgs) Handles Me.Startup
            MyNameSpace.MainApp.Main(e.CommandLine.ToArray)
        End Sub

bereits in eine eigene Startup-Sub um.

Das funktioniert auch bereits, allerdings öffnet die Applikation stur wie ein Esel trotzdem das Startform, selbst wenn ich die Anwendung innerhalb der Weiche mit Application.Exit beende. Öffne ich mit der Weiche ein anderes Startform, wird ungewollt das ursprüngliche Startform zusätzlich geöffnet.

Wie öffne ich ausschließlich das gewünschte Form beim Start der Anwendung, also Form1, Form2 oder gar keines?

...zur Frage

Word VBA, beforePrint?

EDIT: bereits kurz nach Fragestellung selbst gelöst mit cancel =true nach Print background.... Verzeihung, war in der Arbeit und konnte erst jetzt eure Antworten sehen. Trotzdem vielen Dank!

Hallo zusammen.

Ich würde gerne einen commandButton kurz vor dem Drucken verkleinern und nach dem Drucken wieder groß anzeigen. Leider wird das Dokument zweimal ausgedruckt.

es soll beim normalen drucken passieren.

der befehl für das Druck event:

Private Sub appWord_DocumentBeforePrint _
 (ByVal Doc As Document, _
 Cancel As Boolean)
CommandButton1.Height = 0.75
CommandButton1.Width = 0.75
CommandButton2.Height = 0.75 CommandButton2.Width = 0.75


ActiveDocument.PrintOut Background:=False


CommandButton1.Height = 24 CommandButton1.Width = 100 CommandButton1.PicturePosition = fmPicturePositionRightTop

CommandButton2.Height = 24
CommandButton2.Width = 461
  End Sub

Das intializieren

Private Sub Document_New()
Set appWord = Word.Application
End Sub
' Private Sub Document_Open() Set appWord = Word.Application

End Sub

...zur Frage

Wie kann ich meine Excel (VBA) "Zeile Ein- und Ausblenden Formel" vereinfachen?

Hallo zusammen

Ich suche nach einer schnelleren Formellösung, welche alle Zeilen ausblendet, wenn in Spalte A der jeweiligen Zeile das Formelergebnis 0 steht und wieder einblendet, wenn das Ergebnis 1 ist. Die Rechnung passiert dabei auf einer anderen Tabelle; in der Tabelle mit dem Makro steht dann lediglich: ='Tabelle2'!A11 (Dieser Wert wird somit übertragen und ändert sich demzufolge)

Makro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Range("A11") = 0 Then

Rows("11:12").EntireRow.Hidden = True

End If

If Range("A11") <> 0 Then

Rows("11:12").EntireRow.Hidden = False

End If

If Range("A13") = 0 Then

Rows("13:14").EntireRow.Hidden = True

End If

If Range("A13") <> 0 Then

Rows("13:14").EntireRow.Hidden = False

End If

If Range("A15") = 0 Then

Rows("15:16").EntireRow.Hidden = True

End If

If Range("A15") <> 0 Then

Rows("15:16").EntireRow.Hidden = False

End If

...

(UNTERBRUCH) ...........das geht weiter bis "A360"

...

End Sub

Dieser Ablauf dauert jedoch eine gefühlte Ewigkeit; geht das schneller?

Danke euch.

Gruss Swen

...zur Frage

Wie ändere ich die Farbe der Blattregisterkarte basierend auf mehrere Zellenwerte?

Das habe ich im Netz gefunden, aber ich brauche die Abfrage für mehrere Zellen (A1:A10)

Kann mir da jemand helfen ??

Gruß Heiko



Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub

...zur Frage

Wie kann Makros auf mehrere Zellen anwenden?

Hallo zusammen

Ich habe von einem von euch diesen Code für mein Problem erhalten.

Public dMerk As Double

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$7" And IsNumeric(Target) Then

Application.EnableEvents = False

On Error Resume Next

Range("A7").Value = dMerk + Target.Value

dMerk = Range("A7").Value

Application.EnableEvents = True

On Error GoTo 0

End If

End Sub

Jetzt möchte ich diesen jedoch nicht nur auf diese eine Zellle anwenden, sondern auf viele verschiedene. Wie kann ich das machen ohne für jede Zelle das Makro kopieren und den Bezug ändern muss.

Danke im voraus

...zur Frage

VB.NET programmieren. Counter beim drücken eines Buttons?

Guten Tag,

Ich verzweifle grad an der wahrscheinlichsten einfachsten Frage.

Wie zähle ich eine Zahl hoch, wenn ich auf ein Button drücke. Habe es immer mit

counter = counter + 1

oder

counter += 1

gemacht. Funktioniert diesmal auch, aber nur 1x | Ich drücke auf den Button und er zählt von 0 auf 1 hoch. Drücke ich ihn nochmal, geht es nicht mehr und bleibt bei der 1

Code:

    Private Sub btn_startGame_Click(sender As Object, e As EventArgs) Handles btn_startGame.Click
        counter()
    End Sub

    Public Sub counter()
        Dim counter As Integer = 0
        counter = counter + 1
        Label1.Text = counter
    End Sub

...zur Frage

Excel VBA Button Enable?

Hallo Freunde,

Ich habe einen Button in Excel implementiert, der sichtbar sein soll wenn meine Zelle A1 die Zahl 2 enthält.

Der Code dafür lautet:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  On Error GoTo ErrHandler
  Dim rngButton1 As Integer
  rngButton1 = A1
  If rngButton1 = 2 Then
  CommandButton1.Enabled = False
  Else
  CommandButton1.Enabled = True
  End If
  Application.EnableEvents = True
Exit Sub
ErrHandler:
Application.EnableEvents = True
End Sub

Der Code funktioniert an und für sich, es kommt zu keiner Fehlermeldung.
Aber der Button bleibt egal was ich einstelle, Sichtbar.

Wo liegt der Fehler?

...zur Frage

Excel: Verbessertes Logging mit VBA Makro?

Hallo Zusammen

ich verwende im Moment ein kurzes Makro, um Änderungen in einem Tabellenblatt zu loggen.

Es registriert aber nur einzelne Änderungen, nicht multi-selektion oder Löschen von Spalten. Kann ich das mit separaten Privaten Subs übernehmen?

Und kann ich aufnehmen, was die Target- und "PreVal"-Adresse war (Offset 4+5)

Code:

Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
PreVal = Target.Value
 
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  
    On Error GoTo 0
    
    If Target.Value <> PreVal Then
        With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0) = Now
            .Offset(1, 1) = PreVal
            .Offset(1, 2) = Target.Value
            .Offset(1, 3) = Environ("Username")
        End With
    End If
 
End Sub

...zur Frage

Exel VBA? wert automatisch löschen?

Folgenden Code habe ich..

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$E$5" Then

Range("G5").Value = Range("G5").Value + Target.Value

End If

End Sub

Wie bekomme ich es hin, das sich nach eingabe von E5 der wert automatisch wieder löscht?

danke schon mal

...zur Frage

VBA UserForm KeyDown Sonderzeichen werden nicht erkannt?

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

...zur Frage

mehrere Zahlen ausrechnen Windows Forms Taschenrechner?

Hallo,

Ich habe folgendes "Problem", habe meinen TR soweit hinbekommen, dass er Zahl 1 (+-*/) Zahl 2 ausrechnen kann. Nun soll ich Zahl 1 (+-*/) Zahl 2 (+-*/)Zahl 3,... ausrechnen können, stehe dabei leider irgendwie vor einer Wand und bekomme es nicht hin.

Hier der code: (etwas abgekürzt, da sonst zu lang)

Kopf=

Imports System.CodeDom
Public Class form1
  Public Property zahl As String = ""
  Public Property calc As String = ""

Bei alle Zahlen (0-9 sowie .)=

 Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
    tb.Text += "1"
  End Sub

Delete Button=

 Private Sub bdel_Click(sender As Object, e As EventArgs) Handles bdel.Click
    If (tb.Text.Length > 0) Then
      tb.Text = tb.Text.Substring(0, tb.Text.Length - 1)
    End If
  End Sub
  End Sub

Gleich Button=

 Private Sub bsolve_Click(sender As Object, e As EventArgs) Handles bsolve.Click
    If (calc = "+") Then
      tb.Text = Val(zahl) + Val(tb.Text)
    End If
    If (calc = "-") Then
      tb.Text = Val(zahl) - Val(tb.Text)
    End If
    If (calc = "*") Then
      tb.Text = Val(zahl) * Val(tb.Text)
    End If
    If (calc = "/") Then
      tb.Text = Val(zahl) / Val(tb.Text)
    End If
  End Sub

bei allen Operatoren= (+,-,*,/)

Private Sub bplus_Click(sender As Object, e As EventArgs) Handles bplus.Click
    zahl = tb.Text
    calc = "+"
    tb.Text = ""
  End Sub

Vielen Dank schonmal

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen