Word VBA bestimmte Seiten drucken / nicht drucken?

Moin zusammen,

folgendes Problem :

ich habe ein 8 Seiten langes Dokument. Seite 1 und 8 sollen immer gedruckt werden.

Bei den anderen Seiten ist es davon abhängig, welche ToggleButtons in der Userform vorab auf TRUE gestellt wurden.

Button1 = Seite 2, 3

Button2 = Seite 4, 5

Button3 = Seite 6, 7

Also auch zum Beipsiel:

Button1 + Button2 = True, Button3 = False --> Seite 2, 3, 4, 5 sollen gedruckt werden.

Da alle möglichen Fälle einzeln zu programmieren sehr unübersichtlich und aufwendig ist, wollte ich mal fragen, ob einer von euch eine einfacherer Lösung kennt.

Danke schonmal ^^

3 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Albin1990

19.05.2021, 14:08

Hallo

Befehl zum Drucken: printout

Sub SeiteDrucken()
Dim Seite As Byte

'Einzelne Seiten drucken   
ActiveDocument.PrintOut Pages:="1,8"

'Z.B. mit Toggle button:
If UserForm1.ToggleButton1.Value = True Then
ActiveDocument.PrintOut Pages:="1-3,8"
End if

'sonst probiers mit ToggleButton.enabled = True

End sub

Den Code würd ich dann in der Userform ausführen.

Woher ich das weiß:eigene Erfahrung – Bei einer Frage ist Danke ein obligates Zeichen von Respekt

Oubyi, UserMod Light

19.05.2021, 13:48

Ich kenne mich leider nur mit VBA für Excel aus, aber im Prinzip müsste das doch mit einfachen Bedingungen funktionieren:

page1 print

If Button1 = true
page2 print
page3 print 
End If 

If Button2 = true
page4 print
page5 print 
End If 

If Button3 = true
page6 print
page7 print 
End If 

page8 print

Hilft Dir das vielleicht schon weiter?

Nexpert

19.05.2021, 13:40

Ich würde die Liste der ausgewählten Seiten in ein Array abspeichern und im printerdialog diese Seiten ansprechen oder in einer Schleife jede dieser Seiten separat ausdrucken.

Hallo zusammen,

ich speichere mein Tabellenblatt als PDF,

Trotz Recherche und Tests kommt bei mir eine Fehlermeldung, wenn ich ein Datum in den Namen einfügen möchte.

Dim DateiName As String

Sheets("rec").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

DateiName = "Testseite01.pdf"

...zur Frage

Wie kann ich mehrere Buttons nacheinander ausgeben lassen?

Mein Programm soll mehrere Buttons nacheinander ausgeben können, ohne dass das vorherige Ergebnis überschrieben wird. Bisher wird aber immer die letzte Ausgabe überschrieben, wenn ich einen anderen Button drücke.

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;

public class IchBinFrame extends JFrame implements ActionListener {
  private JButton button1 = new JButton("Ich");
  private JButton button2 = new JButton("Bin");
  private JButton button3 = new JButton("Wie");
  TextArea text = new TextArea(10, 10);

  public IchBinFrame() {
    this.setDefaultCloseOperation(EXIT_ON_CLOSE);
    init();
  }

  private void init() {
    JPanel panel1 =new JPanel();
    panel1.setLayout(new FlowLayout());

    // Verknüpfe alle Buttons mit dem Panel
    button1.addActionListener(this);
    button2.addActionListener(this);
    button3.addActionListener(this);
    panel1.add(button1);
    panel1.add(button2);
    panel1.add(button3);

    this.setLayout(new BorderLayout());
    this.add(panel1, BorderLayout.NORTH);
    this.add(text, BorderLayout.CENTER);
  }

  public void actionPerformed(ActionEvent evt) {
    Object src = evt.getSource();

    if (src == button1) {
      text.setText("Ich ");
    }
    else if (src == button2) {
      text.setText("Bin ");
    }
    else if (src == button3) {
      text.setText("Wie ");
    }
  }
}

...zur Frage

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zur Frage

Excel VBA Zwei Bereiche zu einer 2-seitigen pdf exportieren?

Hallo,

ich möchte bei Excel VBA aus einer Arbeitsmappe eine zwei seitige Pdf. Exportieren (mittels Makros).

Mein Code sieht bisher wie folgt aus:

Sub SeiteExportieren ()

Dim DateiName As String

Dateiname = "Speicherort"

Tabelle1.PageSetup.PrintArea = "C7:T70, C71:T120"

Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Bei dieser Funktion werden zwar zwei vorgegeben Bereiche herausgezogen, diese jedoch beide auf einer Seite dargestellt. Wie kann man die Funktion so verändern, dass die Seiten nach den angegebenen Bereichen trennt?

Danke im Voraus

...zur Frage

Java Swing: Wie kann ich Klicks auf Buttons zählen?

Hallo zusammen,

folgendes Programm habe ich. Nun möchte ich dieses noch optimieren. Es soll nun neben dem Button angezeigt werden, wie oft der Button geklickt wurde. Kann mir hier jemand helfen?

Vielen Dank!

import javax.swing.*;
import java.awt.*;
// Event brauchen wir für das Ereignis, wenn ein Button geklickt wird
import java.awt.event.*;

public class FirstGUI extends JFrame {
  private JButton button1;
  private JButton button2;
  private JButton button3;
  private JPanel panelButton;
  private JLabel oben;
  private JLabel anzeige;

  public FirstGUI() {
    super("Fenster");
    setLocation(300, 300);
    setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

    // Das BorderLayout ist mal das erste - später fügen wir noch ein GridLayout im Westen hinzu
    getContentPane().setLayout(new BorderLayout(5, 5));
    
    // Buttons erzeugen
    button1 = new JButton("Button 1");
    button2 = new JButton("Button 2");
    button3 = new JButton("Button 3");

    // Panels erzeugen auf einem GridLayout
    panelButton = new JPanel(new GridLayout(3, 1));

    // Auf Panel Buttons packen
    panelButton.add(button1);
    panelButton.add(button2);
    panelButton.add(button3);

    // Listener für Buttons
    addButtonListener(button1);
    addButtonListener(button2);
    addButtonListener(button3);

    // Labels erzeugen
    oben = new JLabel("Layout Test");

    // Label zentrieren
    oben.setHorizontalAlignment(JLabel.CENTER);
    anzeige = new JLabel("Button klicken");

    // Labels auf Frame packen (direkt auf das BorderLayout)
    getContentPane().add(BorderLayout.NORTH, oben);
    getContentPane().add(anzeige);

    // Panels auf Frame packen (das panelButton hat ein GridLayout, dass jetzt in den WestBereich des BorderLayouts kommt)
    getContentPane().add(BorderLayout.WEST, panelButton);
    pack();
    setVisible(true);
  }

  public static void main(String[] args) {
    FirstGUI g = new FirstGUI();
  }

  private void addButtonListener(JButton b) {
    b.addActionListener(new ActionListener() {
      public void actionPerformed(ActionEvent ae) {
        eingabe(ae.getActionCommand());
      }
    });
  }

  private void eingabe(String a) {
    anzeige.setText(a);
  }
}

...zur Frage

WAHR/FALSCH bzw. FALSE/TRUE Problem mit deutsch/englisch in Excel VBA?

Guten Morgen,

habe eine Userform (6 Textfelder + 1 Checkbox) zur einfachen Eingabe von Datensätzen

die Checkbox legt korrekt den jeweiligen Wert WAHR/FALSCH (in deutsch) in der Tabelle ab

sobald man speichert ist die Checkbox ausgegraut (nutzen könnte man die Checkbox schon)

ich bin jetzt draugekommen, das die Checkbox den Wert TRUE/FALSE (englisch!!) erwartet, damit der Haken der Checkbox angezeigt wird

das Ganze funktioniert also nur, wenn ich die Werte in der Spalte der Checkbox selbst auf enlisch ändere

getestet mit verschiedenen Office-Versionen (2010 - 365)

hat jemand vielleicht eine Idee woran das liegen könnte ?

und bitte Nachsichtig sein, ich bin Anfänger in VBA

...zur Frage

VBA ListBox abfragen?

Hallo Leute,

ich habe ein VBA Userform mit einer Listbox und möchte den ausgewählten Eintrag abfragen für eine If-Verzweigung.

Der Code soll folgendes tun:

Wenn z.B der erste Beitrag der Liste ausgewählt, dann ...

Habe es bereits mit If Listbox.Selected(0) = True Then .... versucht, geht aber nicht.

Hat jemand Vorschläge?

Danke im voraus!

Grüße

...zur Frage

VBA Code?

Hallo zusammen

Ich habe einen Excel Liste als Checkliste erstellt. Wenn man in ein bestimmtes Feld (grau) klickt soll ein "a" geschrieben werden damit es einen Haken ergibt. (Formatierung).

Ich habe das mit einem VBA Code gelöst. Allerdings kann ich nicht einzelne Spaltenbezüge eingeben. Dies müsste ich aber, da in den grünen Spalten einen WennDann Funktion ist die Bezug auf die jeweilige Zelle nimmt wenn ein "a" geschrieben ist.

Kann mir hier jemand helfen wie der Code aussehen müsste?

Der Code ist jetzt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.Intersect(Target, Range("G4:P150")) Is Nothing Then

Exit Sub

End If

'More than 1 cell selected is a no no.

If Target.Cells.Count > 1 Then

Exit Sub

End If

Application.EnableEvents = False

With Target

If .Value <> "" Then

.Value = ""

Else

.Value = "a"

End If

End With

Application.EnableEvents = True

End Sub

...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

Excel VBA Button per doppelklick?

Moinsen,

Ich würde gerne einen versteckten Button erstelln, der folgendes Kann:

Sub CommandButton1_Click()

If ActiveSheet.ProtectContents = False Then

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

Else

ActiveSheet.Unprotect

End If

Jedoch würde ich ihn gerne nur per Doppelklick aktivieren lassen, da man sonst evt ausversehen drauf kommt.

...zur Frage

Microsoft office excel VBA Makro zum Drucken versch Druckbereiche?

Hallo,

ich schreibe gerade an einem Drucker Makro mit UserForm.

Auf der UserForm sind mehrere CheckBoxen, und ein Durck-Button.

Das Ziel ist es: Z.b. dass man CheckBox1 und CheckBox3 anklickt und so die beiden Druckbereiche ausgewählt werden. Beim drücken des "Drucken" Buttons sollen dann die beiden druckbereiche jeweils auf eine seite gedruckt werden.

Ich habs soweit hinbekommen, dass sich über die checkboxen die richtigen druckbereiche auswählen lassen. JEDOCH lassen sich zwar mehrere checkboxen ankreuzen, jedoch druckt es letzendlich immer nur eine seite mit dem Druckbereich des letzt gedrückten checkbox.

Also prinzipiell könnte man wenn man z.b. Checkbox1 und checkbox 3 gedruckt haben will. Nacheinander die 1 anwählen drucken drücken und dann die 3 anwählen drucken drücken.

Das Ziel ist es aber dass beide gleichzeitig angewählt sein können und dann auch beide gedruckt werden auf jeweils eine seite.

Welchen code muss ich ergänzen? und vorallem wo?

Vielen dank

...zur Frage

Excel VBA Userform: Textbox abhängig von Combobox machen?

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then

TextBox1.Text = "5"

End If

End Sub

...zur Frage

Wie kann man in Excel per VBA abhängig von einem Wert Spalten aus-/einblenden?

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

...zur Frage

Warum ist hier die Methode so (Java)?

Hallo.

Meine Frage ist, warum die Methode unten:

public MeinUI() {}

so ist?

Ich meine, muss da nicht irgendetwas stehen, wie public static void oder so? Warum reicht einfach nur das public und das MeinUI?

import javax.swing.*;

public class MeinUI extends JFrame {
  public MeinUI() {
    super("Meine Benutzeroberfläche");
    setSize(300, 200);
    setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

    JPanel panel = new JPanel();
    JButton button1 = new JButton("1");
    JButton button2 = new JButton("2");
    panel.add(button1);
    panel.add(button2);
    add(panel);

    setVisible(true);
  }

  public static void main(String[] args) {
    new MeinUI();
  }
}

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen